DUDLEY  KNOX  LIBRARY 
NAVAL  PC    r(JJ        'J ATE  SCHOOL 
MONTEREY,  CALIFORNIA  93943-5003 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


THESIS 

A  RELATIONAL  DATA  DICTIONARY 

COMPATIBLE  WITH  THE 

NATIONAL  BUREAU  OF  STANDARDS 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

by 

Robert  A.  Kirsch  II 

December  1985 

Thesis  Advisor:                     Daniel  R.  Dolk 

Approved  for  public  release;  distribution  is  unlimited 


T226733 


OumTY  CLASSIFICATION  OF  THIS  PAGE 

REPORT  DOCUMENTATION  PAGE 

.  REPORT  SECURITY  CLASSIFICATION 

lb.  RESTRICTIVE   MARKINGS 

I.  SECURITY  CLASSIFICATION  AUTHORITY 

3     DISTRIBUTION /AVAILABILITY  OF  REPORT 

Approved   for  public   Release;    distribution     . 
unlimited 

>.  DECLASSIFICATION /DOWNGRADING  SCHEDULE 

PERFORMING  ORGANIZATION  REPORT  NUMBER(S) 

5.  MONITORING  ORGANIZATION  REPORT  NUMBER(S) 

.  NAME  OF  PERFORMING  ORGANIZATION 
ival   Postgraduate   School 

6b    OFFICE  SYMBOL 
(If  applicable) 

Code    54 

7a.  NAME  OF  MONITORING  ORGANIZATION 
Naval   Postgraduate    School 

.  ADDRESS  (Gfy,  State,  and  ZIP  Code) 

jnterey,    California      93943-5100 

7b.   ADDRESS  (City,  State,  and  ZIP  Code) 

Monterey,    California      93943-5100 

.  NAME  OF  FUNDING /SPONSORING 
ORGANIZATION 

8b.  OFFICE  SYMBOL 
(If  applicable) 

9.  PROCUREMENT  INSTRUMENT  IDENTIFICATION   NUMBER 

1 

1 

! 

.  ADDRESS  (City,  State,  and  ZIP  Code) 

10    SOURCE  OF  FUNDING  NUMBERS 

PROGRAM 
ELEMENT  NO 

PROJECT 
NO 

TASK 
NO 

WORK  UNIT 
ACCESSION   NO 

i 

•;TLE  (include  Security  Classification)    A   RELATIONAL   DATA  DICTIONARY    COMPABITLE    WITH    THE    NATIONAL 
JREAU   OF    STANDARDS    INFORMATION    RESOURCE    DICTIONARY    SYSTEM 

; 

PERSONAL  AUTHOR(S) 
.rsch,    Robert   A. , 

II 

i 

a    TYPE  OF  REPORT 

ister's   Thesis 

13b    TIME 
FROM 

COVERED 

TO 

14    DATE  OF  REPORT   (Year,  Month,  Day) 
1985   December 

15    PAGE   COUNT 

254 

SUPPLEMENTARY   NOTATION 

COSATI  CODES 

18   SUBJECT  TERMS  (Continue  on  reverse  if  necessary  and  identify  by  block  number)                 i 
Data   Dictionary,    Relational,    Information    Resource    Dictionary! 

F:ELD 

GROUP 

SUB-GROUP 

System    (IRDS) ,    National   Bureau  of   Standard    (NBS) 

A8STRACT  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

Data  is  a  very  valuable  corporate  asset.   How  it  is  managed  and  controlled  can  often 
itermine  the  success  or  failure  of  a  corporate  venture.   With  this  fact  in  mind  many  organi-i 
itions  are  taking  a  close  look  at  what  tools  are  available  to  help  them  in  this  effort. 

This  thesis  takes  a  look  at  two  types  of  data  management  tools  available  today,  the 
ilational  Data  Base  Base  Management  System  (DBMS)  and  the  Data  Dictionary  (DD) .   It  dis- 
lsses  desirable  DBMS  and  DD  characteristics  with  particular  attention  being  paid  to  the 
lortcomings  of  DDs .   It  also  describes  the  effort  of  the  National  Bureau  of  Standards  (NBS) 
>  develop  a  DD  standard  and  examines  in  detail  the  NBS  Information  Resource  Dictionary 
'stem  (IRDS)  and  how  the  standard  was  implemented  in  a  prototype  IRDS. 


)    DISTRIBUTION/AVAILABILITY  OF  ABSTRACT 
B  UNCLASSIFIED/UNLIMITED       □  SAME  AS  RPT  D  DTIC  USERS 


21.  ABSTRACT  SECURITY  CLASSIFICATION 
Unclassified 


a.  NAME  OF  RESPONSIBLE  INDIVIDUAL 
aniel    R.    Dolk 


22b  TELEPHONE  (Include  Area  Code)    22c.  OFFICE  SYMBOL 
(408)    646-2260  Code    54Dk 


3  FORM  1473, 84  mar 


83  APR  edition  may  be  used  until  exhausted 
All  other  editions  are  obsolete. 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 


Approved  for  public  release;  distribution  unlimited 


A  Relational  Data  Dictionary 
Compatible  with  the 
National  Bureau  of  Standards 
Information  Resource  Dictionary  System 


by 


Robert  A.  Kirsch  II 
Captain,  United  States  Army 
B.S.,  University  of  South  Alabama,  1973 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 


MASTER  OF  SCIENCE  IN  INFORMATION  SYSTEMS 


NAVAL  POSTGRADUATE  SCHOOL 
December  1985 


ABSTRACT 

Data  is  a  very  valuable  corporate  asset.   How  it  is  managed  and 
controlled  can  often  determine  the  success  or  failure  of  a  corporate 
venture.   With  this  fact  in  mind  many  organizations  are  taking  a  close 
look  at  what  tools  are  available  to  help  them  in  this  effort. 

This  thesis  takes  a  look  at  two  types  of  data  management  tools  avail- 
able today,  the  Relational  Data  Base  Management  System  (DBMS)  and  the 
Data  Dictionary  (DD) .   It  discusses  desirable  DBMS  and  DD  characteristics 
with  particular  attention  being  paid  to  the  shortcomings  of  DDs .   It 
also  describes  the  effort  of  the  National  Bureau  of  Standards  (NBS)  to 
develop  a  DD  standard  and  examines  in  detail  the  NBS  Information  Resource 
Dictionary  System  (IRDS)  and  how  the  standard  was  implemented  in  a  prototype 
IRDS. 
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I.   INTRODUCTION 

A .   BACKGROUND 

In  the  corporate  world  data  is  a  very  valuable  resource.   Many  organi- 
zations spend  a  great  deal  of  time  and  corporate  assets  trying  to  control 
it.   Data  is  used  to  facilitate  the  management  decision  process  by  pro- 
viding the  manager  with  timely,  accurate  and  relevant  information.   Since 
the  quality  of  the  decisions  made  by  today's  managers  is  so  important,  it 
is  very  critical  that  the  corporate  data  resource  be  easy  to  access,  as 
accurate  as  possible,  and  properly  and  effectively  managed.   {Ref.  1] 

Concern  over  corporate  information  resources  has  resulted  from  the 
explosive  growth  in  the  size,  complexity  and  number  of  data  bases  available 
to  managers.   This  data  base  explosion  has  also  ushered  in  the  need  for 
better  tools  to  manage  the  corporate  data  base.   A  critical  software  tool 
that  has  been  developed  to  control  and  manage  data  is  the  Data  Base  Manage- 
ment System  (DBMS) . 

E.  F.  Codd  has  identified  nine  functions  that  the  ideal  DBMS  should 

have  (See  Figure  1.1)  [Ref.  2].   Kroenke  states  that 

DBMS  products  vary  in  the  degree  to  which  they  provide  these  functions . 
Currently,  no  commercial  DBMS  provides  all  nine  functions  entirely 
satisfactorily.   These  functions  are  necessary  and  important,  however, 
and  this  situation  should  change  as  DBMS  products  evolve  and  as  new 
products  are  developed.   [Ref.  3] 

Of  the  nine  functions  listed  in  Figure  1.1,  the  one  that  is  of  particular 

interest  to  the  Data  Administrator  (the  individual  who  is  responsible  for 

the  management  of  the  data  dictionary  and  for  its  effective  use  in  the 

pursuit  of  data  resource  goals)  is  the  function  of  providing  a  user-accessible 

catalog  for  data  descriptions. 
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B.   OBJECTIVES 

The  changes  in  today's  end-user  environment  reflects  the  growth  in 
computer  literacy  and  increased  need  for  data.   Users  are  demanding  in- 
creasingly better  access  to  data  via  interactive  processing,  ad-hoc 
queries,  specialized  reports  and  simpler  man-machine  communication.   At 
the  same  time  there  is  growing  concern  over  the  timeliness,  validity, 
and  relevance,  and  usability  of  the  data  that  is  available. 

As  a  result,  there  has  been  a  growing  interest  in  two  tools  which 
provide  highly  visible  support  for  the  information  processing  community- 
data  dictionaries  and  relational  data  bases.   Most  relational  data  base 
products  provide  only  rudimentary  dictionary  capabilities,  "the  offerings 
provide  little  more  than  a  method  of  defining  the  schema."  [Ref.  6] 
The  relational  data  dictionary  has  become  the  link  that  connects  the 
user/analyst  with  the  DBMS.  [Ref.  7] 

The  relational  data  dictionary,  that  is  the  data  dictionary  normally 
provided  with  a  relational  DBMS  has  additional  weaknesses  besides  the 
ones  mentioned  above: 

*  They  do  not  provide  a  full  range  of  functions 

*  Their  ability  to  interface  with  more  than  one  DBMS  is  limited 
or  non-existent 

*  There  is  a  broad  divergence  concerning  the  scope  of  data  dictionaries 
and  until  recently  there  has  been  no  universally  accepted  standard 
[Ref.  8],  [Ref.  9] . 

It  is  interesting  to  note  that  these  problems  apply  to  data  dictionaries 

in  general  and  not  just  to  the  relational  variety.   The  purpose  of  this 

work  is  to  create  a  prototype  of  a  relational  dictionary  based  on  the 
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The  usefulness  of  the  catalog  is  greater  if  it  contains  not  only  data 
descriptions  but  also  data  about  the  relationship  between  programs 
and  data,  e.g.,  which  programs  access  which  data,  and  what  they  do 
with  it.  [Ref.  4] 


1.  Store,  retrieve,  and  update  data 

2.  Provide  integrity  services  to  enforce  data  constraints 

3.  Provide  a  user-accessible  catalog  of  data  descriptions 

4.  Control  concurrent  processing 

5.  Support  logical  transactions 

6.  Recover  from  failure 

7.  Provide  security  facilities 

8.  Interface  with  communications  control  programs 

9.  Provide  utility  services 

Figure  1.1   DBMS  Functions 


The  problem  that  arises  is  that  some  DBMSs  have  limitations  on  how 
well  they  maintain  the  meta-data  (data  that  describes  other  data  or 
data  bases) .   Meta-data  include  descriptions  of  the  meaning  of  data 
items,  the  ways  in  which  the  data  are  used:  the  sources  of  particular 
data  elements:  the  physical  characteristics  and  rules  or  restrictions  on- 
their  forms  or  uses.   When  the  meta-data  deals  strictly  with  where  data 
stored  in  the  DBMS  it  is  referred  to  as  a  Data  Directory  but  this 
capability  is  not  enough.   The  Data  Dictionary  (DD)  system  is  an  expansion 
of  the  DBMS  description  cataloging  capability.   The  Data  Dictionary  sys- 
tem is  a  key  tool  available  to  the  Data  Administrator  for  the  management 
of  meta-data  and  information  resources.   The  DD  provides  facilities  for 
recording,  storing  and  processing  descriptions  of  and  organization's 
data  and  data  processing  resources.  [Ref.  5] 
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specified  standards  for  dictionaries  recently  developed  by  the  National 
Bureau  of  Standards  (NBS). .   Chapter  2  discusses  dictionary  concepts 
in  general  and  reviews  functionality  of  existing  dictionary  capabilities 
with  special  attention  on  relational  systems.   Chapter  3  discusses  the 
features  and  capabilities  which  form  the  basis  of  the  NBS  draft  pro- 
posal American  National  Standards  (dp  ANS)  Information  Resource  Diction- 
ary System  (IRDS) .   Chapter  4  outlines  and  discusses  the  IRDS  features 
that  were  selected  for  inclusion  in  the  relational  dictionary  prototype 
and  how  those  features  were  actually  implemented. 
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II.   DATA  DICTIONARY  FUNCTIONS  AND  CAPABILITIES 

A.  GENERAL 

The  Data  Dictionary  (DD)  is  of  great  importance  to  the  DBMS  admini- 
strator and  user  because  it  allows  the  administrator  to  control  how  data 
and  data  bases  are  described  and  structured  and  it  provides  the  link  that 
connects  the  user  to  the  DBMS.   A  data  dictionary  is  a  repository  of  data 
about  data  and  processes  associated  with  a  particular  system  or 
organization . 

B.  DBMS  DATA  DICTIONARY  CAPABILITIES 

The  data  stored  in  a  DBMS  data"  base  may  be  organized  along  hierarchical, 
network  or  relational  lines.   This  organizational  capability  also  exists 
for  the  data  in  the  Data  Dictionary,  which  in  most  cases  is  actually  data 
stored  in  the  DBMS  itself.   Data  dictionaries  implemented  in  this  fashion 
are  most  often  referred  to  as  a  DATA  DIRECTORY  (how  the  data  is  stored  in  the 
data  base) .   On  the  other  hand  the  implementation  of  a  data  dictionary  can 
be  on  such  a  scale  that  it  incorporates  all  of  the  data  resources  available 
to  an  organization.   An  implementation  such  as  this  is  often  referred  to  as 
INFORMATION  RESOURCE  MANAGEMENT.   [Ref.  10]   This  thesis  is  most  concerned 
with  data  dictionaries  of  the  information  resource  management  type. 

The  DBMS  acts  as  a  librarian  for  the  data  base,  storing  and  retrieving 
data  according  to  a  particular  format  [Ref.  11] .   However,  a  DBMS  does  not 
necessarily  provide  for  the  security,  integrity,  accountability,  or 
maintainability  of  that  data.   These  objectives  are  best  achieved  when  a 
data  dictionary  is  used  in  conjunction  with  the  DBMS  [Ref  12] . 
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A  DD  is.  an  instrument  for  describing  an  organization's  meta-data. 
Meta-data  refers  to  that  data  which  describes  other  data  or  data  bases 
and  includes  descriptions  of  the  meaning  of  data  items,  the  ways  in  which 
the  data  are  used;  the  sources  of  particular  data  elements;  the  physical 
characteristics;  and  rules  or  restrictions  on  their  forms  or  uses  [Ref.  13] 

There  are  additional  capabilities  that  should  be  made  available  to 
the  DBMS  user  as  part  of  the  data  dictionary  iRef.  14]: 

1.  Retrieval  and  analysis  capabilities  which  assist  the  user  in 
application  development. 

2.  The  ability  to  generate  pre-defined,  customized  and  user  defined 
reports  via  some  type  of  report  writer. 

3.  The  ability  to  extend  the  data  dictionary  as  necessary  to  meet  the 
DBMS  user's  unique  needs. 

4.  Data  management  tools  that  are  intended  to  ensure  the  security, 
validity,  recoverability  and "integrity  of  the  data  dictionary 
system  and  its  associated  data  bases. 

5.  Software  interfaces  that  allow  other  software  modules  to  access  the 
data  base  via  the  dictionary  and  the  capabilities  of  translating 
the  meta-data  into  file  definitions  usable  by  the  software. 

M.  T.  Vanecek  described  the  capabilities  listed  above  as  those  most  im- 
portant from  a  DBMS  auditor's  standpoint  but  it  is  easy  to  see  that  they 
could  apply  to  many  types  of  users.  [Ref.  15:   pp.  15-16] 

P.  P.  Uhrowczik  describes  the  capabilities  listed  above  as  being 
derived  from  the  "management  use  mode."   He  goes  on  to  identify  additional 
DD  capabilities  that  should  be  available  to  the  DBMS  user  in  what  he 
calls  the  "computer  use  mode"  [Ref.  16:   pp.  332-334]: 

1.  Data  Mapping.   Where  the  user  is  no  longer  concerned  with  what  is 
sometimes  called  the  "physical-equal-logical"  environment.   This  is 
accomplished  by  removing  the  awareness  of  where  data  is  stored 

and  giving  it  to  the  DD. 

2.  Data  Conversion.   During  the  mapping  process,  data  can  be  converted 
to  a  different  format.   For  instance,  data  physically  stored  as 
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4. 


character  can  be  retrieved  and  converted  to  decimal. 

3.   Data  compaction.   Data  can  be  stored  in  a  compacted  form  (encoded) , 
but  presented  to  the  user  in  a  more  meaningful  format  (decoded) . 

Input  and  output  validation.   Data  entering  a  program  (input)  or 
data  entering  physical  storage  (update)  can  be  checked  against 
pre-established  editing  standards.   For  example,  data  can  have  a 
specified  format,  and  lie  within  a  specified  range  of  values. 

5.  Test-data  generation.   System-generated  test  data  with  characteristics 
as  described  in  the  DD  can  be  presented  to  the  user. 

6.  Logical  record  and  file  definitions.   A  user  is  generally  interested 
in  processing  only  certain  data  elements  forming  a  logical  record 
and  desires  that  these  logical  records  be  presented  to  him  in  a 
certain  sequence.   In  Figure  2.1  the  user  defines  his  logical  record 
as  a  series  of  element  names  and  states  his  desire  to  process  the 
file  sequentially  in  a  DEPT/MANNO  sort  sequence.   The  fact  that  the 
file  comes  physically  from  two  different  data  sets  is  pre-defined  in 
the  DD/D.   Thus  the  system  can  deliver  the  logical  records  properly 
assembled  in  the  requested  sequence.   The  user  and  the  program  do 
not  need  to  know  about  the  two  data  sets  that  are  required  to  produce 
the  view. 

7.  JCL  Generation.   Job  Control  Language  (JCL)  statements  for  physical 
data  sets  can  be  automatically  generated  as  required  by  the  particular 
operating  system  in  use.   This  not  only  eliminates  the  user's  pre- 
occupation with  JCL,  but  also  facilitates  migration  to  different 
operating  systems. 

8.  Access  to  distributed  data  bases.   Data  bases  or  portions  of  data 
bases  may  be  physically  stored  in  different  locations  on  different 
computers,  linked  via  data  communication  facilities.   The  data 
directory  located  with  each  distributed  data  base  would  describe 
the  physical  data  located  at  that  site,  as  well  as,  physical  data 
located  at  other  sites.   The  DBMS  can  decide  based  on  the  information 
provided  by  the  DD  whether  to  satisfy  the  request  locally  or  from 

a  remote  location. 


C.   DATA  DICTIONARY  CAPABILITIES 

The  capabilities  listed  above  describe  the  data  dictionary  capabilities 
that  should  be  available  to  any  DBMS  user.  However  this  view  of  the  desired 
data  dictionary  capabilities  is  limited,  since  it  perceives  the  data  diction- 
ary as  an  extension  of  the  DBMS  itself  and  not  as  a  true  data  dictionary. 
It  is  possible,  on  the  other  hand,  to  view  the  data 
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USER  REQUEST  < PPOBLEM  PROGRAM) 


USER  ID  B7601 


RETRIEVE  FILE  SEQUENTIALLY  IN 
SEQUENCE  BY  DEFT/ MANNO 

LOGICAL  RECORD  DEFINITION 

\ 

DEFT  I 

MANNO  I 
SALARY  >   READ  ONLY 

NAME  I 

MANAGER  I 

YRS  OF  SERVICE  / 

JOB  TITLE  UPDATE 

LAST  APPRAISAL  READ  ONLY 


AVAILABLE  DATA  SETS 


PAYROLL 
DATA  SET 

STORED  RECORD 
DEFINITION 

MANNO  (KEY)  I 
NAME  I 

SALARY        I 
YTD  GROSS     > 
DEDUCTIONS   I 
I 


PR I  MAP Y 
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Figure  2.1   Logical  Record  and  File  Definitions 
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dictionary  as  an  entity  unto  itself  whether  it  is  from  standing  or 
DBMS  dependent.   The  capabilities  and  functions  shown  in  Figure  2.2 
and  described  below  represent  a  joing  of  the  capabilities  and  functions 
described  by  Allen  et  al  {Ref.  17:  pp.  248-253]  and  Lefkovits  et  al 
[Ref.  18:  pp. 2-7  thru  2-29]. 
1 .   Dictionary  Schema 

Denotes  the  structure  of  the  dictionary.   Both  sources  agree  that, 
at  a  minimum,  a  DD  should  allow  for  the  definition  of  Entities,  Relation- 
ships and  Attributes.   Entities  are  the  basic  unit  of  the  dictionary  and 
represent  real  world  objects  or  things  about  which  certain  information 
exists  in  the  dictionary.   Relationships  provide  information  about  associa- 
tions between  entities  whereas  attributes  provide  information  about 
entities  and  relationships  that  exist  in  the  dictionary.   Figures  2.3 
and  2.4  show  examples  of  commonly  used  entities  and  relationships. 

Data  Dictionary  Maintenance 
Schema 

Entity-types 
Attribute- types 
Relationship- types 
User  Dialogue 
Dictionary  Commands 
Extensibility 
Status  Facilities 
Report  Processor 
Query  Processor 
Convert  Function 
Software  Interface 
Data  Management 

Security 

Integrity 

Concurrent  Control 

Internal  access  to  DD 

Figure  2.2   Data  Dictionary  Capabilities 

Entity  names  should  be  unique  but  facilities  to  track  duplicate 
names  in  the  form  of  aliases  or  synonyms  hould  be  provided.   Additionally, 
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Figure    2.3      Logical   Structure   of   a   Typical    DD 
(from  Allen   et    al) 
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Figure   2.4      Hierarchy   of   Entity-types 
(from  Lefkovits    et   al) 
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the  DD  should  allow  a  .minimum  of  three  groupings  of  entity- types : 
Data-Element,  Processes,  and  Usage. 

The  dictionary  system  should  also  provide  a  means  of  grouping 
together  dictionary  elements  that  have  the  same  characteristics.   This 
can  be  accomplished  through  the  establishment  of  Entity-types,  Relation- 
ship-types and  Attribute-types.   It  can  also  be  accomplished  through  the 
establishment  of  a  Key-word  In-context  feature.   Neither  author  provided 
specific  examples  of  atribute  or  relationship  types.   Both  did  agree  that 
most  DD  provide  enough  attribute-types  and  relationship-types  to  meet 
the  average  user  needs.   In  addition  they  identified  the  extensibility 
feature  which  would  allow  a  DD  user  to  expand  the  DD  to  meet  his  indivi- 
dual requirements . 

2.  User  Dialogue 

The  method  used  by  the  DD  to  communicate  with  the  user  and  vice 
versa. 

a.  keyword- driven  language 

b.  position-sensitive  transactions 

c.  interactive,  prompted  input 

d.  interactive,  performatted  screens  or  menus 

3.  Dictionary  Commands 

Provide  user  with  the  ability  to  use  the  DD  system  to  its  fullest 
extent.   Dictionary  commands  can  be  divided  to  the  following  categories. 

a.   Dictionary  Maintenance  Commands 

Those  commands  that  allow  entities,  relationships,  and 
attributes  to  be  created,  modified  and  deleted  from  the  dictionary. 
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b.  Report  and  Query  Commands 

Those  commands  that  allow  the  user  to  request  the  system 
to  generate  listings  of  entities,  relationships  and  attributes  and  generate 
queries  on  such  things  as  the  usage  of  dictionary  entities,  keyword  and 
synonym  searches. 

c.  Data  Structure  Interface  Commands 

These  commands  give  the  DD  system  the  ability  to  generate 
descriptions  of  data  structures  in  such  a  way  that  they  can  be  processed 
by  other  language  processors,  such  as  language  compilers  or  DBMS 
schema/subschema  utilities. 

d.  Extensibility  Commands 

These  commands  are  discussed  in  4  below . 

e.  Status-related  Commands 

Will  be  discussed  in  5  below. 

f.  Security  Commands 

These  commands  provide  the  system  with  the  ability  to  exclude 
some  users  from  access  to  the  system  or  restrict  his  ability  to  modify 
and  change  the  system. 

g.  Dictionary  Processing  Control  Commands 

These  commands  allow  the  user  to  perform  such  functions  as 
log-on,  log-off,  terminate  operation  upon  error,  etc. 
h.  Dictionary  Administrator  Commands 

These  commands  will  allow  the  dictionary  administrator  to: 

*  initially  create  the  dictionary  system 

*  recover  the  dictionary  after  a  failure 

*  set  default  values 
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*  create  back-up  copies  of  the  dictionary 

4.  Extensibility 

A  feature  that  allows  the  DD  structure  to  be  extended  by  • 
definition  of  additional  entities,  relationships,  and  attributes. 

5 .  Status  Facilities 

Allows  the  dictionary  system  to  be  used  in  a  System  Life  Cycle 
environment,  that  is  the  system  would  allow  for  the  designation  of  an 
entity  as  being  "Under  Development,"  "Production"  or  "Archive"  for 
example . 

6.  Report  Processor 

This  capability  allows  the  user  of  the  DD  system  to  produce 
predefined  reports,  the  ability  to  customize  reports  and  produce 
user-defined  reports. 

7.  Query  Processor 

This  capability  would  give  the  DD  user  the  ability  to  generate 
English-like  queries  of  the  system.   This  query  capability  is  analogous 
to  the  corresponding  function  in  DBMSs  for  access  to  data  bases. 

8.  Convert  Function 

This  function  allows  the  DD  system  to  read  application  programs, 
libraries  and  schemata  and  generate  DD  maintenance  input  transactions  to 
automatically  create  a  DD  schema. 

9.  Software  Interface 

This  capability  provides  a  formatted  pathway,  enabling  the  DD 
system  to  provide  meta-data  to  other  software  systems  such  as  compilers. 

10.  Data  Management 

This  function  would  provide  for  the  data  base  management  tasks 
such  as: 
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*  Security 

*  Integrity 

*  Concurrent  control 

*  Internal  access  of  the  DD 

Not  all  data  dictionary  systems  possess  the  capabilities  listed 
above  in  fact,  early  data  dictionary  systems  were  little  more  than  docu- 
ment generators ,  taking  the  meta-data  that  had  been  stored  in  them  and 
printing  out  reports  describing  file  and  record  structures.   Other  DD 
which  are  DBMS-dependent  obtain  the  capabilities  listed  above  from  the 
DBMS  they  are  associated  with.   Unfortunately  even  DBMS  products  that 
are  currently  being  marketed  are  limited  in  the  data  dictionary 
capabilities  they  offer  and  very  few  if  any  offer  what  could  be  classified 
as  information  resource  dictionary  systems.   In  addition  to  the  limited 
DD  capabilities  associated  with  DBMS,  the  additional  problem  of  lack  of 
standardization  exists. 

D.   ADVANTAGES  OF  DATA  DICTIONARIES 

The  main  advantage  of  a  dictionary  lies  not  in  its  ability  to  store 
and  catalogue  information  about  data,  but  in  its  ability  to  assist  in 
the  discipline  of  data  design  [Ref.  19]. 

This  advantage  can  be  expanded  into  a  number  of  beneficial  areas: 

1.  Information  about  data/corporate  asset.   Accurate  information  about 
how  a  company  functions,  about  its  employees  and  clients  can  be 
stored  in  a  DBMS  and  defined  in  a  data  dictionary.   By  storing 
this  knowledge  on  a  magnetic  media  and  providing  for  adequate 
backup  and  recovery  to  the  data  dictionary,  the  corporate  asset 

is  being  saved  from  catastrophe. 

2.  Public  vs.  Private  Information.   The  situation  where  only  a  pro- 
grammer knows  all  of  the  information  (institutional  knowledge)  about 
a  particular  application,  can  cause  many  problems  not  only  for  those 
who  must  pick  up  a  project  in  mid-stream,  but  even  for  the  programmer 
himself  if  it  has  been  several  months  since  he  last  worked 
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on  the  application.   By  incorporating  his  institutional 
knowledge  about  each  application  into  a  data  dictionary  as 
each  new  application  is  developed,  the  information  becomes  public 
knowledge  for  the  application  developer  and  anyone  who  follows 
him.   This  will  substantially  reduce  the  effort  required  to 
modify  and  enhance  existing  applications. 

Communication  tool.   The  data  dictionary  can  become  a  repository 
of  corporate  information,  i.e.,  minutes  of  meetings,  memos,  notes, 
manuals  and  reference  texts,  which  can  be  accessed  by  all  areas  of 
a  company.   The  central  area  of  Figure  2.5  represents  the  communi- 
cations value  of  a  data  dictionary. 


DATA 
PROCESSING 


Figure  2.5   Communication  Value  of  a  Data  Dictionary 

4.   Safeguard  against  Data  Redundancy.   Old  systems  are  difficult  to 
maintain  because  of  lack  of  information,  process  redundance  and 
data  redundancy.   Information  availability  has  been  discussed  above 
Process  redundancy  can  be  reduced  through  structured  programming 
techniques.   Data  redundancy  however  requires  a  different  approach. 
Data  redundancy  is  a  situation  where  the  same  data  element  pro- 
liferates throughout  the  system. 

It  is  not  uncommon  in  an  older  system  to  find  the  same  data  element 
stored  in  ten  different  locations  and  requiring  ten  different  update 
transactions  to  maintain  it.   This  same  data  element  may  be  referenced 
by  50  different  names  through  the  system.   Is  it  any  wonder  that  such 
systems  are  difficult  to  maintain.  [Ref.  20] 

Listed  below  are  various  types  of  data  redundancy: 
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a.  Reference  Redundancy  -  when  the  same  data  element  is 
referenced  by  different  names. 

b.  Format  Redundancy  -  when  the  same  data  element  appears  in  the 
system  in  different  formats. 

c.  Group  Redundancy  -  when  data  elements  are  grouped  under  a  group 
name  when  no  requirement  exists  from  them  in  the  first  place. 

d.  Occurrence  Redundancy  -  when  repetitious  data  names  are  used  to 
identify  multiple  generations  of  the  same  data  element. 

e.  Definition  Redundancy  -  when  a  data  element  is  used  for  more  than 
one  purpose  thus  the  element  has  more  than  one  definition. 

f.  Storage  Redundancy  -  when  the  same  data  element  is  stored  in  more 
than  one  location  (redundancy  of  this  type,  sometimes  serves  a 
purpose,  in  distributed  systems  for  example). 

These  as  well  as  other  types  of  redundancy  not  mentioned  can  be  controlled 

through  the  use  of  a  data  dictionary. 

5.  Glossary  of  Terms.   Another  benefit  of  implementing  a  data  diction- 
ary is  to  use  it  as  a  glossary  of  terms.   Which  could  be  used  in  the 
development  of  software  and  as  a  training  tool. 

The  data  dictionary  can  be  very  effective  when  used  as  a  tool  to 
support  structured  analysis  and  design.   It  can  be  used  to  document 
data  store,  data  flow,  and  process  entity  types.   The  data  dictionary 
can  also  be  used  to  generate,  file  segment,  and  record  definitions 
for  a  variety  of  programming  languages.   By  doing  so,  we  can  cen- 
tralize the  control  of  program  data  definitions.  [Ref.  21] 

6.  Documentation.  The  data  dictionary  can  serve  as  an  effective 
medium  for  the  presentation  of  documentation.   The  nature  of  a 
data  dictionary  makes  maintenance  of  documentation  easier  and 
anyone  who  has  access  to  a  computer  terminal  can  subsequently 
access  the  documentation. 

7.  System  development.   The  "data  dictionary  is  one  more  tool  to  in- 
crease user  effectiveness  in  system  development."  [Ref.  22]  the 
traditional  approach  to  systems  development  (see  Figure  2.6)  can 
be  enhanced  to  allow  all  involved  in  the  development  process, 
access  to  the  necessary  information  as  it  is  generated,  (see 
Figure  2.7)   This  is  accomplished  by  incorporating  the  DD  into  the 
traditional  development  network. 

All  of  the  capabilities  and  benefits  listed  above  are  important,  but 

very  few  if  any  data  dictionary  systems  available  today  can  provide  them 

all.   In  other  words  there  is  no  current  standard  from  which  all  data 


24 


H^FR 
nFTARTMFNT 


tlSRR    STAFF 


DATA    IRIK  F.SSINC    STIFF 


I  Ml  I  FMF.NTATIC1N 


Figure  2.6   Systems  Development  Traditional  Approach 
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Figure  2.7   Expanded  System  Development  Approach 
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dictionary  products  are  developed.   This  situation  is  in  the  process  of 
being  eliminated  now  that  the  National  Bureau  of  Standards  (NBS)  has 
formalized  and  published  a  standard  for  data  dictionaries  in  the  form 
of  the  Information  Resource  Dictionary  System  IRDS)  standard.   The  feature 
and  functions  found  in  that  standard  are  discussed  in  the  next  chapter. 

E.   EXISTING  DBMS  DATA  DICTIONARY  CAPABILITIES 

As  stated  earlier  very  few  DBMSs  contain  DDs  that  exhibit  all  the 
capabilities  discussed  above  and  even  fewer  Relational  DBMSs  offer  the 
previously  identified  minimum  DBMS  dictionaries  capabilities.   Tables  2.1 
thru  2.3  list  the  DD  capabilities  provided  by  the  INGRES  and  ORACLE  DBMS 
products.   It  is  easy  to  see  from  the  list  above  that  the  dictionary 
capabilities  provided  by  ORACLE  and  INGRES  are  very  limited  from  the  stand- 
point of  offering  full  data  dictionary  capabilities. 

But  what  alternatives  exist  to  improve  this  situation?   The  NBS  IRDS 
standards  offers  a  convenient  vehicle  to  improve  this  situation.   By 
adopting  this  standard  as  an  industry-wide  starting  point,  all  products 
that  use  data  dictionaries  and  the  data  dictionary  itself  will  improve. 
The  next  chapter  discusses  the  NBS  IRDS  standard  in  detail. 
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TABLE  2 . 1 
DBMS  DICTIONARY  CAPABILITIES 


CAPABILITY 

INGRES 

ORACLE 

Data  Dictionary  Maintenance 

P 

P 

Schema 

*  *  ** 

*  *  *  * 

Entity-types 

L 

A 

Attribute- types 

L 

L 

Relation ship- types 

L 

A 

User  Dialogue 

*  *  *  * 

*  *  *  * 

Keyword-drive 

A 

A 

Position-sensitive  Trans 

N 

N 

Interactive 

L 

L 

Prompted  input 

L 

L 

Preformatted  screen 

A 

L 

Menus 

L 

L 

Facility/capability  availability  =  A 
Facility/capability  available  but  limited  =  L 
Facility/capability  not  available  =  N 
Facility/capability  as  part  of  DBMS  only  =  F 
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TABLE  2.2 


DBMS  DICTIONARY  CAPABILITIES 


CAPABILITY 


INCRES 


ORACLE 


Dictionary  Commands 
Maintenance 

Add 

Modify 

delete 
Report 
Query 

Data  Structure  interface 
Extensibility 
Stat us- re la ted 
Security 
Processing  control 


p 

P 

N 

L 

L 

L 

N 

L 

P 

P 

P 

P 

N 

N 

N 

P 

N 

N 

P 

P 

N 

N 

Facility/capability  availability  -   A 
Facility/capability  available  but  limited  =  L 
Facilitycapability  not  available  =  N 
Facility/capability  as  part  of  DBMS  only  =  P 
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TABLE  2.3 


DBMS  DICTIONARY  CAPABILITIES 


CAPABILITY 

Administration 
Extensibility 
Status  Facilities 
Report  Processor 
Query  Processor 
Convert  Function 
Software  Interface 
Data  iManagement 

Security 

Integrity 

Concurrent  Control 

Internal  access  to  DD 


IGRES 

ORACLE 

A 

A 

N 

P/L 

N 

N 

P 

P 

P 

P 

A 

N 

P 

P 

L 

P/L 

P 

P 

N 

P 

N 

N 

N 

L 

Facility/capability  availability  =  A 
Facility/capability  available  but  limited  =  L 
Facility /capabi lity  not  available  =  N 
Facility/capability  as  part  of  DBMS  only  =  P 
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III.   INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

This  chapter  discusses  the  features  and  characteristics  which  form 
the  basis  of  the  draft  proposal  American  National  Standards  (dp  ANS)  Infor- 
mation Resource  Dictionary  System  (IRDS) .   The  chapter  that  follows  will 
outline  which  of  these  features  were  chosen  for  incorporation  into  the 
Prototype  IRDS. 

A.   BACKGROUND 

As  the  world's  largest  user  of  information  processing  technology,  the 
U.  S.  Government  depends  on  this  technology  to  carry  out  Government-wide 
programs  and  deliver  essential  public  services.   As  with  most  new  technolo- 
gies Data  Dictionary /Directory  Systems  (DD/DS)  were  being  developed  by 
numerous  software  suppliers  each  from  a  different  set  of  standards.   Since 
it  is  estimated  that  the  federal  government  could  save  "$120  million  in 
benefits  by  the  early  1990s  from  use  of  a  standard  (IRDS)"   [Ref.  23],  the 
American  National  Standards  Institute  (ANSI)  and  the  National  Bureau  of 
Standards  (NBS)  of  the  United  States  Department  of  Commerce  were  prompted 
to  initiate  efforts  to  develop  standards  for  dictionary  systems.   To  this 
end  the  ANSI  committee  for  Information  Systems  (X3)  convened  a  Technical 
Committee  X3H4  to  develop  the  standard  for  an  IRDS  in  1980.   NBS  at  the 
same  time  established  a  similar  committee  to  develop  the  "Federal  Information 
Processing  Standards  for  Data  Dictionary  Systems"  (FIPS  DDS) . 

Although  the  ANSI  X3H4  and  the  NBS  committees  used  different  titles 
for  standards  they  were  developing,  the  two  groups  had  identical  goals 
and  similar  development  approaches.   The  two  efforts  came  together  with  the 
adoption  of  Proposal  A83-020  in  August  1983.   The  proposal  called  for  the 
acceptance  of  the  draft  FIPS  DDS  as  the  Base  Document  for  any  further 
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development  of  IRDS  standards  and  has  since  been  developed  into  the 
dp  ANS  IRDSs  iRef.  24],  jRef.  25],  [Ref.  26],  iRef.  27]. 
B.   IRDS  DESIGN  OBJECTIVES 

When  specifications  for  the  standard  IRDS  were  being  developed  three 
key  objectives  were  always  in  the  forefront  of  consideration.   They  were: 

*  The  IRDS  should  contain  the  major  features  and  capabilities  found 
in  existing  Data  Dictionary  Systems. 

*  The  IRDS  should  be  modularized  to  promote  ease  of  implementation 
and  cost  efficient  development. 

*  The  IRDS  should  support  portability  of  skills  and  a  wide  range  of 
user  environments. 

In  pursuit  of  this  goal  the  Institute  for  Computer  Science  and 

Technology  of  the  National  Bureau  of  Standards  took  the  following  steps: 

*  Preparing  and  disseminating  the  Prospectus  for  Data  Dictionary  Sys- 
tem Standard  [Ref.  28]  in  I960.   This  document  discussed  the  use  of 
Data  Dictionaries  and  plans  to  develop  a  FIPS  standard. 

*  Conducted  a  Data  Base  Directions  workshop  in  October,  1980  that  in- 
vestigated how  managers  can  evaluate,  select,  and  effectively  use 
information  resource  management  tools,  in  particular  data  dictionary 
systems. 

*  Conducted  interviews  with  government  employees  that  were  knowledgeable 
in  the  area  of  data  dictionaries  to  determine  current  and  future  re- 
quirements for  data  dictionary  systems.   The  Federal  Requirements  for 
a  Federal  Information  Processing  Standard  Data  Dictionary  System 
[Ref.  29]  was  published  as  a  result  of  those  interviews. 

*  Conducted  numerous  workshops  for  users  and  vendors  between  1982-84 
to  obtain  feedback  on  previously  published  documents. 

*  Developed  a  functional  specification  for  the  development  of  a  data 
dictionary  standard  [Ref.  30]. 

*  Prepared  and  disseminated  in  August  1983  the  draft  specifications  for 
the  planned  Federal  Information  Processing  Standard  for  Data 
Dictionary  Systems,  the  document  that  later  became  the  baseline 
standard. 

1.   Outgrowth  of  Existing  Systems 

All  vendors  who  were  marketing  developed  IRDSs  or  were  developing 

IRDS  were  asked  to  review  the  proposed  IRDS  specification  and  make 
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recommendations  and  suggestions  on  what  should  be  included  in  or  excluded 
from  the  draft  standards .   Many  of  their  recommendations  were  subsequently 
included  in  the  draft  specifications. 

2.  Flexibility 

The  proposed  IRDS  includes  a  "CORE"  dictionary  system  (which  is 
the  basis  for  the  prototype  to  be  discussed  in  Chapter  5)  plus  three 
modules.   The  modules  are  designed  to  interface  with  the  core  system  but 
be  independent  of  each  other  so  that  any  or  all  of  the  modules  can  be 
implemented  with  the  core  system  when  desired.   To  provide  additional 
flexibility,  capabilities  are  specified  in  the  core  IRDS  that  allow 
organizations  to  customize  or  extend  the  IRDS  as  required. 

3.  Portability  of  Skill 

The  core  IRDS  contains  two  user  interfaces:   a  menu  driven 
"Panel"  interface  and  a  command  language  interface.   The  panel  interface 
allows  the  system  to  be  used  by  the  inexperienced  user.   It  incorporates 
a  series  of  interrelated  screens  that  guide  the  user  through  the  system. 
The  command  language  interface  on  the  other  hand  is  designed  to  allow 
the  more  experienced  user  to  access  the  system  without  viewing  the 
panels.   The  command  language  interface  may  be  used  in  a  batch  or  interface 
mode. 

An  implementation  of  the  IRDS  standard  is  considered  complete  if 
either  of  the  interfaces  are  implemented. 

C.   IRDS  DATA  ARCHITECTURE 

This  section  presents  an  overview  of  the  framework  in  which  IRDS  data 
is  organized  and  presented  to  the  user. 
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1 .      Framework 

The    IRDS    standard    is    specified    in    terms    of    entities, 

relationships,    and   attributes    (see    Figure    3.1). 

An    IRDS   entity   represents   or   describes   a    real   world   concept,    person, 
event,    or  quantity,    but    is   not    the   actual    data    that   exists    in    an 
application   file   or   data  base. [Ref.    31] 

A   relationship    is   an   association   between    two   entities.      An   attribute 
represents   a   property   about   an    IRDS    entity   of    relationship   as    the    IRDS 
also   allows    relationships    to   have    attributes.      Relationships    in    the 
Core    IRDS   are   binary,    denoting    that   an   association   exists   between    two 
entities    in   the    IRDS. 

The   Core   system  was    restricted    to   binary    rel ationshi ps   because    (1)    tne 

vast   majority   of   current    implementations   use   binary    relationships    and 

(2)    it  was   desired    that    the   Core    system  be   simple   enough    to    implement   on 

microcomputers . 


ENTITY       u8-20       ENTITY -TYPE    =    SYSTEM 

ASCAD    Database_Update 

WITH   ATTRIBUTES 

DESCRIPTION       (START    =    186     INCREMENT    =    10) 

"This    subsystem    provides    the    capability    for 
the    staff    to    update     the    contents    of    the 

ASCAD    Database . " , 

SYSTEM-CATEGORY    =    "subsystem", 

SECURITY    =    " da t amor" ; 

Figure    3.1      Sample   Entity   Representation 


An   important   aspect   of   the    IRDS    standard    is    the   concept   of   TYPE 
which   is    used   as    a   way   of   classifying   entities,    relationships   and   sttri- 
butes.      Different   attributes   have   different  meanings,    for   example    the 
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length  of  Payroll-Number  or  number  of  fields  in  a  Payroll-Record  are 
different.   But  these  attributes  may  appear  many  times  in  relationship 
to  other  entities,  length  of  name,  length  of  address  or  number-bf-f ields 
in  an  Accounts-Payable  record.   The  IRDS  standard  handles  this  situation 
by  declaring  that  each  attribute  is  a  specific  type  called  an 
"attribute-type."   Thus  there  are  attribute- types  called  length  and 
number-of-f ields . 

The  concept  of  types  is  extended  to  the  IRDS  relationship  and 
entity  in  the  form  of  "relationship-types"  and  "entity-types"  see 
Appendix  A. 

Relationships  within  the  IRDS  can  also  have  attributes,  for  example 
the  relationship  in  Figure  3.1  between  Payroll-Record  and  Payroll-Number 
could  have  position  attribute-type  with  a  value  of  3  indicating  that  the 
Payroll-Number  appears  as  the  third  element  in  the  Payroll-Record. 

The  IRDS  standard  also  allows  for  ordered  sets  of  attributes 
called  attribute-groups.   This  capability  was  incorporated  into  the 
standard  because  individual  attribute-types  don't  always  convey  the  com- 
plete message  about  an  entity.   An  example  of  this  might  be  the  allow- 
able-range of  an  entity.   The  allowable  range  has  a  high  value  and  a  low 
value  which  a  singular  attribute  would  not  be  able  to  convey.   An  attri- 
bute-group on  the  other  hand  would  be  able  to  convey  this  information 
quite  easily. 

2.   IRDS  Schema 

The  IRD  schema  describes  the  structure  of  the  IRD.   Thus  for 
every  entity,  relationship,  attribute  and  attribute-group  that  can  exist 
in  the  IRD,  a  corresponding  description  of  the  entity-type,  relationship- type , 
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attribute- type  and  attribute-group- type  must  exist  in  the  IRD 
schema.   The  proposed  IRDS  standard  specifies  a  set  of  specifically 
allowable  entries  of  the  types  listed  above  which  are  collectively  called 
the  "Core-System-Standard  Schema"  which  will  be  discussed  in  3.  below. 

The  IRD  schema  is  important  for  two  reasons.   First,  the  IRDS 
specifications  allow  for  facilities  to  modify  and  expand  the  core-system- 
standard  schema  to  meet  the  unique  needs  of  individual  users.   Second, 
the  IRD  schema  supports  the  core  system  plus  modules  approach  as  discussed 
in  Section  1  of  this  chapter  and  the  IRD  schema  allows  not  only  extension 
of  the  schema  data  but  also  definition  of  additional  IRDS  functions. 
3.   The  System-Standard  Schema 

The  system-standard  schema  defines  the  allowable  contents  of  the 
IRDS  and  is  expected  to  be  part  of  every  IRDS  implementation  (the  proto- 
type IRD  in  Appendix  E  only  implements  a  subset  of  the  system-standard 
schema,  this  will  be  explained  in  Chapter  4) .   The  core-system-standard 
schema  does  not  contain  all  possible  entity,  relationship  and  attribute- 
types  that  an  organization  might  desire,  it  does  however  represent  the 
consensus  of  the  organizations  which  participated  in  the  original  IRDS 
workshops  and  reviews.   An  overview  of  the  core-system-standard  schema 
is  provided  below  and  a  complete  core-system-standard  schema  is  provided 
in  Appendix  A. 

a.   Entity  Types 

The  core  system-standard  schema  contains  twelve  entity-types 
that  conceptually  can  be  grouped  into  three  categories,  Data,  Process,  and 
External.   [Ref.  32] 
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Data  Entity-Types 

*  DOCUMENT,  describes  instances  of  human  readable  data,  such  as  tax 
forms  and  annual  reports . 

*  FILE,  describes  collections  of  records  which  represent  an  organiza- 
tion's data,  such  as  inventory  and  accounts  receivable  files. 

*  RECORD, describes  instances  of  logically  associated  data,  such  as  a 
payroll  record. 

*  ELEMENT,  describes  an  instance  of  data,  such  as  a  social-security- 
number. 

*  BIT-STRING,  describes  a  string  of  binary  digits,  such  as  01000101. 

*  CHARACTER- STRING,  describes  a  string  of  characters,  such  as  "house." 

*  FIXED-POINT,  describes  exact  representations  of  numeric  values. 

*  FLOAT,  describes  exact  representations  of  approximate  numeric  values. 

The  last  four  are  not  used  to  represent  application  entities,  but 
are  instead  used  by  the  "REP RESENTED- AS"  relationship  to  describe  the 
characteristics  of  elements: 
PROCESS  Entity-types 

*  SYSTEM,  describes  a  collection  of  processes  and  data,  such  as  a 
payroll-system  or  accounts-payable-system. 

*  PROGRAM,  describes  a  particular  process,  such  as  print  accounts- 
payable  check 

*  MODULE,  describes  a  group  of  programs  that  are  logically  associated, 
such  as  a  sort  module. 

EXTERNAL  Entity-types 

*  USER,  describes  an  individual  or  organization  that  is  using  the  IRDS , 
such  as  the  accounting  department. 

b.   Relational-types 

The  relationship-types  provided  for  in  the  IRDS  core  system- 
standard  schema  represent  virtually  all  connections  that  might  be  useful 
to  users.   These  relationship-types  are  grouped  into  eight  classes  [Ref.  33] 
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*  CONTAINS,  describes  a  situation  were  an  entity- type  contains  other 
entity-types,  such  as  Accounts  payable-file  CONTAINS  Accounts 
Payable-record . 

*  PROCESSES,  describes  a  situation  where  an  entity- type  acts  upon 
another  entity-type,  such  as  Payroll-program  PROCESSES  Payroll- 
records  . 

*  RESPONSIBLE-FOR,  describes  an  association  between  entities  represent- 
ing organizational  components  and  other  entities,  to  indicate 
organizational  responsibility.   An  example  of  such  a  relationship  is 
Accounting-department  RESPONSIBLE-FOR  General-ledger-file. 

*  RUNS,  describes  an  association  between  user  and  process  entities, 
such  as  user  RUNS  program. 

*  GOES-TO,  describes  a  situation  where  one  process  transfers  control 
to  another  process.   An  example  of  this  relationship  is  Accounts- 
payable-aging-program  GOES-TO  Aging-report-program. 

*  DERIVED  FROM,  describes  a  situation  where  an  entity  is  derived  from 
another  entity  such  as  Annual-report  DERIVED-FROM  program-file. 

*  CALLS,  describes  a  situation  where  one  entity  calls  another  entity 
such  as  Data-entry-program  CALLS  Aging-program. 

*  REP RESENTED- AS ,  describes  associations  between  ELEMENTS  and  certain 
other  entitles  that  document  the  ELEMENTS  format.   An  example  of 
such  a  relationship- type  is  Employee-Name  REPRESENTED-AS  Ascil-char- 
string. 

c.   Attribute  Types 

The  attribute-types  available  as  part  of  the  core -system-standard 

schema  are  the  ones  selected  by  conscientious  of  participating  DD  users 

and  DD  software  developers  during  the  development  of  the  IRDS  standard. 

They  represent  most  of  the  attributes  that  an  organization  would  need  to 

describe  the  core-system-standard  entity  and  relationship-types.   The 

attribute-types  provide  [Ref.  34]: 

*  Audit  trail  information,  a  typical  audit  attribute- type  is  DATE- 
CREATED  . 

*  General  documentation  for  entities,  for  example,  DESCRIPTION  and 
COMMENTS . 

See  Appendix  C  for  a  complete  list  of  the  attribute- types. 
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4.   Entity  Names 

The  core  IRDS  allows  flexibility  in  the  assigning  of  entity  names. 
The  system  also  allows  for  several  distinct  names  to  be  associated  with  an 
entity  and  for  each  name  to  serve  a  specific  purpose.   The  core  system 
allows  for  ACCESS  NAME,  DESCRIPTIVE  NAME  and  ALTERNATE  NAME. 

The  access  name  is  the  entity's  primary  identifier  and  it  is  the 
basis  for  the  structure  of  most  commands  and  panels.   The  access  name  is 
designed  to  be  short,  for  ease  of  use  by  the  system  and  user.   Normally  a 
user  will  provide  the  access  name  of  an  entity.   However  an  option  exists 
for  the  IRDS  to  generate  the  access  names  for  all  entities  of  a  given  type. 
The  names  that  are  generated  by  the  system  may  be  modified  at  a  later  date. 

The  descriptive  name  provides  detailed  information  about  the  object 
represented  by  the  entity.   So  the  brevity  of  the  access  name  poses  no 
disadvantage  to  the  system  or  user. 

The  IRDS  does  place  a  requirement  on  the  user  that  all  access  and 
descriptive  names  be  unique  throughout  the  system.   This  requirement  was 
generated  by  the  ANSI  X3H4  and  workshop  participants  to  insure  simplicity  in 
the  command  language  and  panel  interfaces. 

The  core  IRDS  also  allows  for  user  assignment  of  ALTERNATE  NAMES 
for  an  entity.   The  term  alternate  name  is  used  here  in  the  same  sense  as 
the  terms  "synonym"  and  "alias."   The  alternate  name  documents  different 
names  used  to  represent  the  same  real  world  things.   For  example,  the 
element  whose  access  name  is  Social-Security-Number  might  have  alternate 
names,  SSN,  Soc-Sec,  No,  and  Social-Security-Number. 

D.   FUNCTIONS  AND  PROCESSES 

This  section  describes  the  functions  and  processes  provided  as  part 
of  the  core  IRDS. 
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1.   Populating  and  Maintaining  the  IRD 

The  core  IRDS  provides  functions  to  add,  modify,  and  delete 
entities  and  relationships. 
a.   Entities 

(1)  Adding  Entities.   This  function  allows  the  user  to 
add/create  entities  to  the  IRD.   Some  important  aspects  of  adding  a  new 
entity  are: 

*  Declaring  the  type  of  the  entity. 

*  Designating  the  assigned  access  name. 

*  Assigning  a  descriptive  name  to  the  entity. 

*  Declaring  attributes  and  attribute-groups  for  the  new  entity. 
The  designated  entity-type  must  be  one  that  exists  in  the  IRD  schema. 

In  order  for  the  access  name  to  be  valid  it  must  conform  to  the  following 
rules: 

*  The  access  name  must  conform  to  the  length  and  picture  requirements 
of  IRD  schema. 

*  The  access  name  used  must  not  previously  exist  in  the  dictionary. 

*  If  the  system  is  to  generate  the  access  name  the  user  must  supply 
the  entity  type  and  starting  value  see  Figure  3.2  for  examples. 

(2)  Modifying  Entities.  This  function  is  used  to  change  the 
attributes  of  existing  entities.  When  using  the  modify  function  the  user 
may  accomplish  the  following: 

*  Creation  of  new  attributes. 

*  Modification  of  existing  attributes. 

*  Deletion  of  existing  attributes. 

The  core  IRDS  also  offers  a  modification  option  that  allows  the  user 
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ADD  ENTITY   u8-20   ENTITY-TYPE  =  SYSTEM 
DESCRIPTIVE-NAME  =  ASCAD_Database_Update 
WITH  ATTRIBUTES 

DESCRIPTION  (START  =  100   INCREMENT  =  10) 

"This  subsystem  provides  the  capability  for 
the  staff  to  update  the  contents  of  the 
ASCAD  Database. " 
SYSTEM-CATEGORY  =  "subsystem", 
SECURITY  =  "dataragr"; 

Figure   3.2   Sample  Command  for  Adding  Entity 
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to  create  a  new  entity  which  has  all  the  values  of  the  old  entityt  but 
with  some  desired  modification.   This  option  allows  for  the  easy  genera- 
tion of  a  new  version  of  an  existing  entity  which  would  be  identified  as 
a  different  form  the  original  entity  by  a  version  number  (Figure  3.3) . 

MODIFY  ENTITY   dd_01093 
WITH  ATTRIBUTES 

DESCRIPTION  =  "A  shared  data  field  occupied  by 

either  cntry__code  or  state_code", 
SECURITY  =  "datamgr" 
DATA-CLASS  =  "alphanumeric", 
IDENTIFICATION-NAMES  = 

(ALTERNATE -NAME  =  "cntry_st_code" , 
ALTERNATE -NAME -CONTEXT  =  "pll"); 

Figure  3.3   Sample  Command  for  Modifying  Entity 

(3)   Deletion  of  Entities.  The  core  IRDS  allows  entities  to 
be  deleted  by  specifying  any  of  the  following: 

*  The  access  name. 

*  Entity  selection  criteria  (access  names)  which  will  result  in  the 
creation  of  a  new  entity-list. 

*  The  name  of  an  existing  entity-list  created  earlier  in  the  session 
or  saved  from  a  previous  session. 

b.   Relationships 

(1)   Adding  Relationships.   The  core  IRDS  allows  for  the 
creation  of  new  relationships  other  than  those  provided  as  cart  of  the 
core.   The  important  considerations  in  creating  a  new  relationship  in- 
clude designating: 

*  The  entities  that  are  to  be  members  of  the  relationship. 

*  The  relationship  type. 

*  Optionally,  attributes  and  attribute  groups  for  the  new  relationship, 

*  The  entity  sequence  for  ordered  relationships. 
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In  creating  a  new  relationship  the  user  need  only  identify  the  access- 
names  of  those  entities  associated  with  the  relationship. 

C2)  Modifying  Relationships.  The  core  IRDS  allows  the  user 
to  modify  any  existing  relationship  by  identify  the  relationship  by  type 
and  the  access  associated  with  it.  Using  this  function,  allows  the  user 
to: 

*  Change  a  relationship's  attributes. 

*  Create  new  attributes. 

*  Delete  existing  attributes. 

*  Change  the  sequence  of  entities  associated  with  the  relationship. 

(3)   Deleting  Relationships.   The  function  is  provided  by  the 
core  system  to  allow  for  leletion  of  relationships, 
c.   Copying  Entities  and  Relationships. 

The  core  IRDS  allows  for  the  creation  of  new  entities  with  the 
same  attributes,  attribute  groups  and  relationships  as  an  existing  entity. 
In  order  for  the  new  entity  to  be  created  the  user  must  activate  the 
copy  function  and  specify  a  new  access  name  which  is  not  duplicated  in 
the  system.   Optionally  the  user  may  designate  a  new  full  descriptive 
name  for  the  entity  to  be  copied. 
2.   IRDS  Output  Facility 

The  core  IRDS  provides  a  GENERAL  OUTPUT  function  for  producing 
output  of  IRD  entities,  relationships,  and  attributes.   The  general  output 
capabilities  are  discussed  in  a.  below.   The  core  IRDS  also  provides  two 
additional  output  facilities  the  IMP ACT-OF -CHANGE  function,  which  provides 
a  report  of  all  entities  that  might  be  affected  by  a  change  to  a  specific 
entity,  and  the  SYNTAX-OUTPUT  function  which  generates  output  in  the  same 
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format  as  data  was  entered  to  create  the  entity  in  the  first  place. 
These  two  functions  are  discussed  in  detail  below, 
a.   General  Output 

The  core  IRDS  requires  that  seven  steps  be  completed  before 
any  output  can  be  generated.   Some  of  the  steps  are  optional  and  therefore 
default  values  are  available.   The  seven  steps  required  for  output  genera- 
tion are: 

(1)  Specify  the  views  to  which  retrieval  applies.   The  view  is  associated 
with  the  life  cycle  phase  that  the  particular  entity  belongs  to 

(See  Figure  3.4  for  an  example). 

Select  ENTITIES  "Program-2  (.*:*)" 
Where  *:*  means  all  revision-numbers  and  all  variation-numbers 
Figure  3.4   Sample  Command  Line 

(2)  Selection  of  the  entities  to  be  output.   This  selection  is  performed 
via  the  entering  of  selection  criteria.   Criteria  is  generally 
entered  at  the  initiation  of  the  output  process.   Selection 
criteria  includes  (See  Figure  3.4 

*  The  type(s)  of  entities  to  be  retrieved. 

*  Characteristics  of  the  assigned  access  or  descriptive  name. 

*  Characteristics  of  the  associated  version  identifier. 

*  Designated  attributes  or  attribute  groups. 

*  Life-cycle-phases. 

*  Relationships 

(3)  Sorting  the  entities  on  a  series  of  sort  parameters.   The  available 
parameters  are  the  same  as  those  listed  in  D.2  above.   Suppose  a 
user  wishes  to  sor  the  selected  entities  based  on  entity- type, 
variation  name,  assigned-access-name ,  and  revision-number. 

Figure  3.5  shows  how  the  command  might  look. 
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(.4)   Designating  what  information  is  to  be  displayed  include: 

*  The  kind  of  entity  name  (access,  descriptive  or  alternate) 

*  The  life-cycle-phase  of  the  entity. 

*  One  or  more  of  the  entity's  attributes  or  attribute  groups 

*  One  or  more  relationships  in  which  the  entity  participates 
See  Figure  3.6  for  an  example. 


entity-type  (ascending) ,  variation 
(ascending) ,  assigned-access-name 
(ascending) ,  revision  (descending) 


Figure  3.5   Sample  Parameters 


(5)  Routing  information  which  sends  the  output  to  a  particular 
destination. 

(6)  Assigning  a  title  to  the  output. 

(7)  Providing  a  name  for  the  output  procedure  to  allow  it  to  be  re- 
called at  a  later  time,  when  the  same  output  is  required. 


SHOW  ASSIGNED-ACCESS  NAME 

ASSIGNED-DESCRIPTIVE-NAME 

REVISION-NUMBER,  VARIATION  NAME 

Figure  3.6   Sample  Output  Format  Command  Line 


b.   Output  IMPACT-OF-CHANGE 

AS  previously  stated,  the  IRDS  allows  for  the  printing  or 
displaying  of  an  Impact  of  Change  report.   This  report  is  generated  by 
a  function  that  has  two  options.   First,  there  is  a  cumulative  impact- 
of-change  option  that  lista  all  entities  that  will  be  impacted  by  a 

proposed  change (s).   Second,  the  Individual-Impact-Of-Change  option 
produces  a  separate  list  of  entities  for  each  of  the  originally  specified 

entity  changes. 
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ENTITY- 1 

I All  ENTITY- 1   information  in  the  order  in 
which  it  was  originally  entered] . 

RELATIONSHIP-1   The  first  relationship  that  the 
entity  participates  in  and  all  the  information 
associated  with  the  relationship. 

RELATIONSHIP- j   The  jth  relationship  that  the 

entity  participates  in  and  all  the  information 
associated  with  the  relationship. 

ENTITY-n 

[All  ENTITY-n   information  in  the  order  in  which  it 
was  originally  entered] . 

RELATIONSHIP-1   The  first  relationship  that  the 
entity  participates  in  and  all  the  information 
associated  with  the  relationship. 

RELATIONSHIP-k  The  kth  relationship  that  the 

entity  participates  in  and  all  the  information 
associated  with  the  relationship. 

Figure  3.7   Sample  Output  Syntax  Report  Format 


ENTITY- 1 

{All  ENTITY-1   information  in  the  order  in  which 
it  was  originally  entered] . 

ENTITY-n 

[All  ENTITY-n   information  in  the  order  in  which 
it  was  originally  entered] . 

RELATIONSHIP-1  The  first  relationship  that  the  entities 
participated  in  and  all  the  information  associated 
with  the  relationship. 

RELATIONSHIP-k  The  kth  relationship  that  the 

entities  participated  in  and  all  the  information 
associated  with  the  relationship. 

Figure  3.8   Sample  Output  Syntax  Report  Format 
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c.  Output  Syntax 

The  output  syntax  function  produces  output  that  includes  all 
information  about  the  entity  that  was  entered  during  the  add-entity  or 
add- relationship  process.   The  output  for  this  function  has  two  formats. 
The  first,  involves  the  listing  of  each  entity  and  all  relationships 
associated  with  the  entity  (See  Figure  3.7).   The  second,  lists  all  for  the 
entities  first  and  then  lists  all  the  relationships  associated  with  those 
entities  (See  Figure  3.8) 

d.  Entity-lists 

The  IRDS  allows  a  user  to  create  and  manipulate  lists  of  access 
names  which  may  then  be  used  as  input  to  other  IRDS  output  functions. 
The  IRDS  has  functions  that  allow  for  the  creation  of  entity  lists,  main- 
tenance of  entity  lists,  assigning  of  names  to  entity  lists,  output  of 
entity  lists,  output  of  entity  list  names  and  the  performance  of  set 
operations  on  entity  lists  which  include  union,  intersection  and  symmetric 
difference. 

e.  Procedures 

Finally  the  IRDS  provides  a  PROCEDURE  FACILITY  that  allows  the 
user  to  save  a  sequence  of  operations,  used  to  produce  an  output.   This 
facility  also  allows  for  the  saving  of  previously  defined  procedures  under 
unique  names,  execution  of  previously  saved  procedures  by  specifying  its 
name  and  outputting  the  names  and  structures  of  existing  procedures. 
3.   Schema  Maintenance  and  Output 

This  section  expands  the  discussion  of  the  IRD  Schema  which  was 
introduced  in  Section  C.2  and  also  discusses  schema  maintenance  and  output. 
In  the  previous  sections  the  schema  was  shown  to  include : 

ENTITY-TYPES,  RELATIONSHIP-TYPES,  RELATIONSHIP-CLASS-TYPES,  ATTRIBUTES-TYPES, 

47 


and  ATTRIBUTE-GROUP-TYPES  all  of  which  are  described  in  the  schema 
as  meta-entities.   Meta-entities  represent  real  world  entities  in  the  IRD 
schema.   Real  world  entities  are  objects  of  concepts  such  as  sales  manager, 
account,  balance  sheet  and  others.   The  entities  that  represent  these  ob- 
jects, such  as  user,  record  or  report  are  in  turn  linked  by  meta-relation- 
ships  and  both  can  have  meta-attributes  associated  with  them, 
a.   Schema  Control 

As  stated  in  D.3  above  the  IRD  schema  contains  meta-entities 
which  are  linked  by  meta-relationships  with  both  the  entities  and  relation- 
ships being  described  via  meta-attributes. 

(1)  Meta-entity .   The  IRD  schema  allows  for  the  following 
meta-entities: 

*  Entity-type 

*  Relationship-type 

*  Attribute-type 

*  Relationship-class-type 

*  Attribute-group-type 

*  At tribute- type-validation-procedure 

*  Attribute-type-validation-data 

*  Variation-names-data 

*  Life-cycle-phase 

*  Quality-indicator 

*  Schema-defaults 

See  Figure  3.9  for  an  example  of  an  instance  of  each. 

(2)  Meta-relationships.  Meta-relationships  represent 
relationships  between  two  meta-entities.   The  core  IRDS  only  allows  one 
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occurrence  of  a  relationship  between  any  two  meta-entities.   Also 
meta-relationships  are  not  given  individual  names  in  the  core  IRDS. 


Entity-type 

Relat  ionship-type 

At tribute- type 

Relationship-class- type 

At tribute-group- type 

Attribute-type-validat ion-procedure 

At tribute- type-validation-data 

Variation-names-data 

Life-cycle-phase 

Quality-indicator 

Schema-defaults 

Figure  3.9   Instances  of  Meta-Entities 


The  general  form  for  a  meta-relationship  is  meta-entity, 
meta-relationship,  meta-entity.   See  Figure  3.10  for  an  example  of  the 
general  form  of  a  meta-relationship. 

(3)   Meta-attributes .   Meta-attributes  perform  a  descriptive 
role  with  respect  to  meta-entities  and  meta-relationships.   The  core 
IRDS  allows  for  four  general  types: 

*  ADDED  BY 

*  ALLOWABLE-VALUE 

*  DESCRIPTION 

*  LAST-MODIFIED-BY 

*  NUMBER-OF-LINES-OF  CODE 
Figure  3.10   Sample  Meta-Attributes 


*  Documentation  meta-attributes  are  used  to  document  the  purpose  of 
the  meta-entity,  See  Figure  3.10. 
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*  Audit  meta-attributes  serve  the  same  general  purpose  as  the  audit 
attribute  in  the  IRD,  that  being  to  provide  an  audit  trail  of  what 
has  happened  in  the  schema,  see  Figure  3.10. 

*  Schema  control  meta-attributes  provide  certain  controls  over  what 
can  and  cannot  be  done  to  the  schema. 

*  Dictionary  control  meta-attributes  which  provide  control  over  the 
dictionary  itself. 

(4)   A  Sample  Schema  Structure.   Figure  3.2  shows  a  sample 

schema  structure  involving  files.   It  demonstrates  the  use  of  meta-entities , 

meta-relationships  and  meta-attributes  in  the  formation  of  schema. 

b.   Schema  Manipulation 

The  core  IRDS  allows  for  the  modification  of  the  schema  via 

adding,  modifying  and  deleting  of  meta-entities  and  relationships.   These 

functions  are  designed  to  be  performed  by  only  those  individuals  with  the 

proper  access  authorization. 

(1)  Adding  meta-entities.   The  core  IRDS  will  allow  those 
users  with  the  proper  authorization  to  add  new  meta-entities.   The  kinds 
of  meta-entities  that  can  be  added  are  listed  in  D.3.a.(l)  above.    New 
meta-entities  may  not  be  assigned  the  name  of  a  meta-entity  that  already 
exists. 

(2)  Modifying  meta-entities.   The  core  IRDS  allows  the  user 
to  modify  meta-entities  by  associating  a  new  meta-attributes  with  the 
meta-entity,  by  changing  an  existing  meta-attribute  or  by  deleting  a 
meta-attribute  that  already  is  associated  with  the  meta-entity.   In  the 
case  of  a  changed  or  deleted  meta-attribute  the  IRDS  will  insure  that 
the  change  did  not  adversely  effect  the  dictionary. 

(3)  Deleting  meta-entities.   The  core  IRDS  provides  the 
user  with  the  ability  to  delete  an  existing  meta-entity  from  the  schema. 
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However  the  IRDS  will  insure  that  the  integrity  of  the  dictionary  is 
not  violated. 

(4)  Adding  Meta-relationships .   The  core  IRDS  gives  the  IRDS 
user  the  ability  to  add  new  meta-relationships  as  he  sees  necessary.   As 
stated  earlier  meta-relationships  are  associations  between  meta-entities . 
The  process  of  adding  a  meta-relationship  requires  that  the  user  specify 
the  meta-entities  that  are  to  be  members  of  the  relationship  and  any  meta- 
attributes  that  will  be  associated  with  the  meta-relationship. 

(5)  Modifying,  Deleting  and  Replacing  Meta-relationships. 
The  core  IRDS  provides  the  user  with  the  ability  to  modify,  delete  and 
replace  meta-relationships.   The  modifying  and  deleting  of  meta-relation- 
ships is  performed  in  the  same  manner  as  the  modification  and  deletion 

of  entities  as  explained  in  D.3.b.(2)  and  D.3.b.(3)  above.   The  replace- 
ment of  meta-relationships  actually  involves  the  combination  of  the 
delete  meta-relationship  and  add  meta-relationship  functions.   The  replace- 
ment function  is  organized  in  this  manner  to  insure  the  integrity  of 
the  IRD. 

(6)  Modification  of  Meta-entity  Names.   The  core  IRDS  allows 
the  user  to  modify  the  meta-entity  name.   This  process  however  falls 
along  the  same  lines  as  the  meta-relationship  replacement  function.   It 
is  the  forced  combination  of  the  meta-entity  deletion  and  add  functions. 
This  process  is  again  used  to  insure  integrity  of  the  IRD.   One  addi- 
tional requirement  exists  and  that  is  that  the  meta-entity  name  not  be 
duplicated  anywhere  in  the  IRD. 

c.   Schema  Output 

The  core  IRDS  allows  those  authorized  to  work  with  the  schema 
the  ability  to  output  information  about  it.   In  order  to  produce  the 
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output  the  user  must  select  the  meta-entities  to  be  displayed.   This 
selection  is  accomplished  by  choosing  one  of  the  following: 

*  That  all  meta-entities  be  displayed. 

*  That  all  meta-entities  of  a  specific  type(s)  be  displayed. 

*  The  name  of  a  specific  meta-entity. 

The  resulting  set  of  meta-entities  may  then  be  sorted  on  one  of  the  fol- 
lowing parameters : 

*  meta-entity-type 

*  meta-entity-name 

*  Non  repeating  meta-attribute-types 

Before  the  sorted  list  is  displayed  the  user  must  specify  the  informa- 
tion about  each  meta-entity  he  wishes  to  see.   The  display  options  avail- 
able to  him  are  one  of  the  following: 

*  me ta- name 

*  me ta- type 

*  One  or  more  of  the  associated  meta-attributes 

*  All  or  none  of  the  associated  meta-relationships  in  which  the 
meta-entity  participates 

4.   The  IRD  to  IRD  Interface 

The  IRD  to  IRD  interface  is  an  important  feature  of  the  core 
standard  IRDS  because  it  is  the  only  controlled  means  for  moving  data 
between  two  IRDS.   This  facility  allows  an  organization  with  more  than 
one  IRD  to  transfer  information  between  them.   The  facility  is  also  de- 
signed to  allow  IRDSs  developed  by  different  vendors  to  interface  and 
exchange  information,  provided  a  communication  link  exists  and  they  have 
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followed  IRDS  standards.   The  core  standard  IRDS  only  allows  for  the 
transfer  and  does  not  have  any  means  of  providing  the  physical  connection 
between  the  IRDS .   In  allowing  for  the  interface  the  only  important 
issue  stressed  is  that  the  exporting  and  importing  dictionaries  and  the 
exporting  and  importing  schema's  must  be  compatible. 
5.   IRDS  Control  Facilities 

The  core  IRDS   contains  five  control  facilities  that  are  impor- 
tant in  populating  and  maintaining  the  IRD.   These  are: 

*  The  Versioning  Facility 

*  The  Life-Cycle-Phase  Facility 

*  Quality-Indicators 

*  Views 

*  Security 

An  overview  of  these  was  provided  in  Section  D.   This  section  presents 
additional  detail  on  the  structure  and  use  of  these  facilities, 
a.   The  Versioning  Facility 

The  versioning  facility  provides  the  user  with  the  ability  to 
distinguish  between  entities  that  would  otherwise  be  considered  the  same. 
The  distinction  is  generated  via  the  version-identifier  which  is  composed 
of  two  parts:  (1)  a  required  revision-number  and  (2)  an  optional  vari- 
ation-name . 

In  the  command  language  syntax  the  user  encloses  the  version- 
identifier  in  parentheses  and  appends  it  to  the  access  or  descriptive 
entity  name.   Within  the  parentheses  the  variation-name  (if  used)  is 
followed  by  the  revision-number,  separated  by  a  colon.   If  the  user  does 
not  specify  a  revision-number  the  system  will  default  with  a  value  of 
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1  to  indicate  that  no  revision  exists  and  a  value  of  1  greater  than 
the  current  value  for  any  subsequent  revisions. 

For  example,  suppose  a  certain  payroll  module  exists  that 
calculates  state  taxes  for  Alabama,  Georgia,  and  Florida  and  another  pay- 
roll module  of  the  same  functionality  calculates  state  taxes  for  California 
and  Texas.   We  can  describe  both  with  the  same  access  name  PAYROLL-MODULE, 
and  differentiate  between  the  two  with  different  variation-names.   Thus 
we  could  have  PAYROLL-MODULE  (AL-GA-FL:1)  which  would  represent  the  Ala- 
bama, Georgia,  and  Florida  capable  payroll  module  with  no  revision.   The 
California  and  Texas  module  which  has  had  three  revisions  would  be  re- 
presented as  PAYROLL-MODULE  (CA-TX:4). 

b.   The  Life-Cycle-Phase  Facility 

The  life-cycle-phase  facility  of  the  core  IRDS :   (1)  allows 
the  user  to  define  the  life  cycle  phase  to  meet  the  methodology  currently 
being  used;  (2)  Provides  facilities  to  assign  each  entity  to  a  particu- 
lar phase;  (3)  Provides  integrity  rules  concerning  the  passing  of  an 
entity  from  one  phase  to  another.   Each  phase  is  represented  in  the 
schema  as  a  meta-entity. 

Every  life-cycle-phase  belongs  to  a  "phase  class"  and  the 
core  IRDS  recognizes  three  such  classes: 

*  UNCONTROLLED  —  Uncontrolled  phases  are  "specification,"  "design" 
or  "non-operational."   There  are  no  integrity  rules  for  this  class 
and  a  user  may  identify  as  many  phases  with  this  class  as  desired. 

*  CONTROLLED  —  Controlled  phases  are  those  that  are  considered  to  be 
"operational."   The  core  IRDS  allows  only  one  such  phase  the 
"CONTROLLED-PHASE"  with  its  associated  integrity  rules.   The 
integrity  rules  will  be  covered  in  the  next  section. 

*  ARCHIVED  —  The  core  IRDS  can  only  have  one  ARCHIVED  life-cycle- 
phase,  called  the  "ARCHIVED-PHASE"  and  it  is  used  to  document  and 
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classify  entities  no  longer  in  use.   This  class  also  has  special 
integrity  rules  associated  with  it,  those  will  also  be  discussed  in 
the  next  section. 

(1)   Integrity  Rules.   As  mentioned  previously,  integrity  rules 
for  the  CONTROLLED  and  ARCHIVED  life-cycle-phases  are  enforced  by  the 
core  IRDS.   These  rules  are  based  on  a  dierarchy  of  system- standard  entity- 
types  as  defined  by  the  following  list.   The  highest  in  the  hierarchy  is 
the  first  and  the  lowest  is  the  last: 

*  SYSTEM 

*  PROGRAM 

*  MODULE 

*  FILE 

*  DOCUMENT 

*  RECORD 

*  ELEMENT 

This  means  that  the  entities  are  "Phase-related."   The  hierarchy  only 
applies  to  the  core  standard  IRDS  entity  types  and  not  to  any  entities 
added  -by  the  user  via  the  extendability  facility. 

These  are  integrity  rules  in  the  sense  of  controlled 
and  archived  but  not  in  the  sense  of  allowable  ranges  of  attribute  data 
values,  e.g.:   "sex  must  be  'M'  or  'F'.   This  type  of  integrity  is  handled 
through  the  ATTRIBUTE-TYPE-VALIDATION-PROCEDURE -META-ENTITIES : 

*  RANGE-VALIDATION,  which  is  used  to  restrict  an  attribute-type  to  an 
allowable  set  of  ranges. 

*  VALUE-VALIDATION,  which  is  used  to  restrict  an  attribute-type  to  an 
allowable  set  of  values. 

There  are  two  relationship-class-types  that  are  desig- 
nated as  phase-related,  they  are  CONTAINS  and  PROCESSES  they  are  combined 
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with  the  entity-type  to  form  phase-related  relationship-types.   Listed 

below  in  Table  3.1  are  the  relationship-types  generated  by  this  combination: 

The  general  integrity  rule  for  entities  in  the  controlled 

life-cycle-phase  is: 

An  entity  can  be  in  the  CONTROLLED  life-cycle-phase  only  if  all  entities 
whose  types  are  below  its  type  on  the  above  hierarchy  and  that  are  con- 
nected to  it  with  phase-related  relationships  are  also  in  the  CONTROLLED 
life-cycle-phase . 

The  ARCHIVED  life-cycle-phase  has  an  integrity  rule  similar  to  that  above: 

An  entity  can  be  in  the  ARCHIVED  life-cycle-phase  only  if  all  entities 
whose  types  are  below  its  type  in  the  above  hierarchy  and  that  are  con- 
nected to  it  with  phase-related  relationships  are  in  either  the  CONTROLLED 
or  ARCHIVED  life-cycle-phase. 

The  integrity  rules  are  designed  to  insure  that  when  an  entity,  for 
example  "PAYROLL-SYSTEM"  is  moved  to  a  new  phase,  for  example  "OPERATIONAL- 
PHASE"  that  all  of  the  programs  and  modules  associated  with  the  system 
are  either  already  in  the  operational-phase  or  ready  to  be  moved  to  it, 
thus  insuring  the  integrity  of  the  system, 
c.   Quality-Indicators 

The  core  IRDS  allows  the  user  to  define  quality-indicators 
and  assign  them  to  entities.   These  quality-indicators  denote  such  things 
as: 

*  The  level  of  standardization  of  an  entity  (e.g.,  program  standards, 
organization  standards,  company  standards,  and  international 
standards) . 

*  The  degree  to  which  an  entity  meets  the  user  quality  assurance  stan- 
dards, etc. 

All  quality-indicators  must  be  added  to  the  IRD  schema  as 

a  meta-entity.   Also  the  core  system-standard  schema  does  not  include  any 

indicators,  so  all  indicators  must  be  user  defined. 
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TABLE  3.1 

PHRASE-RELATED  RELATIONSHIPS-TYPES 
SYSTEM-CONTAINS-SYSTEM 
SYSTEM-CONTAINS-PROBLEM 
SYSTEM-CONTAINS -MODULE 
PROGRAM-CONTAINS-PROGRAM 
PROGRAM-CONTAINS-MODULE 
MODULE-CONTAINS -MODULE 
FILE-CONTAINS-DOCUMENT 
FILE-CONTAINS -RECORD 
FILE-CONTAINS -ELEMENT 
DOCUMENT-CONTAINS-DOCUMENT 
DOCUMENT - CONTA INS - RECORD 
DOCUMENT-CONTINS-RECORD 
RECORD-CONTAINS -RECORD 
RECORD-CONTAINS -ELEMENT 
ELEMENT-CONTAINS-ELEMENT 

SYSTEM-PROCESSES-FILE 
SYSTEM-PROCESSES-DOCUMENT 
SYSTEM-PROCESSES -RECORD 
SYSTEM-PROCESSES-ELEMENT 
PROGRAM-PROCESSES-FILE 
PROGRAM-PROCESSES-DOCUMENT 
PROGRAM-PROCESSES-RECORD 
PROGRAM-PROCESSES-ELEMENT 
MODULE-PROCESSES -FILE 
MODULE-PROCESSES -DOCUMENT 
MODULE-PROCESSES -RECORD 
MODULE-PROCESSES -ELEMENT 
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d.  Views 

Views  are  how  the  user  logically  perceives  the  dictionary  and 
as  such  it  is  generally  a  subset  of  the  complete  dictionary.   A  view  may 
be:   (1)  a  set  of  entities  with  associate  entities,  attributes,  and  attri- 
bute-groups;  (2)  a  set  of  relationships  with  its  associated  entities, 
attributes,  and  attribute-groups  or  (3)  a  set  of  specifications  of  opera- 
tions that  may  be  performed  by  the  user. 

Structurally,  VIEW  is  an  entity- type  in  the  core  IRDS  system- 
standard  schema  and  each  view  in  the  IRD  is  an  instance  of  that  entity-type. 
For  example,  if  a  particular  programmer  is  working  on  the  Payroll- 
system  of  an  organization.   His  view  of  the  IRD  would  be  all  the  programs, 
modules,  files,  records  and  elements  contained  in  or  processed  by  the 
Payroll  system. 

The  core  IRDS  allows  an  organization  to  define  what  views  are 
available  to  a  user  thus  limiting  his  access  to  the  dictionary.   if  more 
than  one  view  is  available  to  a  user,  one  will  be  designated  as  the  default- 
view  and  will  be  presented  to  the  user  each  time  he  uses  the  system  un- 
less he  specifically  specifies  otherwise.   Views  associated  with  each 
user  are  stored  in  the  IRD  as  attributes  of  the  DICTIONARY-USER  entity. 

e.  Core  Security 

The  general  mechanism  that  implements  core  IRDS  security  con- 
sists of  the  following: 

*  For  each  authorized  user  of  the  IRDS,  one  DICTIONARY-USER  entity 
exists.   Associated  with  this  entity  are  attributes  that  define 
the  user's  level  of  access. 

*  Associated  with  each  VIEW  entity  are  attributes  that  define  the 
permissions  and  restrictions  that  apply  to  all  IRDS  users  allowed 
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to  use  the  view.  These  include  the  abilities  (independently  specified 
for  each  entity-type),  to  read,  add  to,  modify,  and  delete  the  entities 
that  comprise  the  view. 

*  Finally,  each  DICTIONARY-USER  entity  is  linked  to  those  views  that 
the  user  can  access. 

(1)   Access  Permission.   Most  IRD  ACCESS  PERMISSION  is 

associated  with  view  entities,  and,  for  each  view,  the  permission  applies 

to  all  entities  in  that  view.   Each  permission  consists  of  several  parts: 

*  The  name  of  the  entity-type  for  which  the  permissions  are  specified. 

*  An  indicator  showing  if  permission  exists  to  read  entities  of  the 
specified  type. 

*  An  indicator  showing  if  permission  exists  to  add  entities  of  the 
specified  type. 

*  An  indicator  showing  if  permission  exists  to  modify  entities  of  the 
specified  type. 

*  An  indicator  showing  if  permission  exists  to  delete  entities  of  the 
specified  type. 

*  An  indicator  showing  which  relationships  are  explicitly  excluded 
from  that  view. 

*  An  indicator  showing  if  permission  exists  to  modify  the  life-cycle- 
phase  of  entities  of  the  specified  type. 

These  permissions  are  stored  in  the  IRD  as  a  DICTIONARY- 
PERMISSION  attribute-group.   Each  view  may  have  multiple  permissions 
associated  with  it. 

The  core  IRDS  specified  five  categories  of  permission: 

*  GLOBAL  PERMISSION:   All  schema  functions  are  allowed. 

*  GLOBAL  PERMISSION  FOR  UNLOCKED  META-ENTITIES :   Permission  to  perform 
all  schema  functions  except  those  that  modify  or  delete  meta-entities 
that  have  installation-lock  set  on. 

*  ATTRIBUTE-TYPE-VALIDATION-DATA  WRITE  PERMISSION:   Read  attribute  type 
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validation  data  and  modify  their  meta-attribute. 

*  ATTRIBUTE-TYPE-VALIDATION-DATA  READ  PERMISSION:   permission  to  read 
attribute-type-validation-data  and  their  meta-attribute. 

*  REPORTING  PERMISSION:   permission  to  read  the  complete  schema. 
This  facility  is  implemented  through  attributes  of  the  DICTIONARY-USER 
entity. 

6.   User  Interfaces 

This  section  discusses  the  command  language  and  panel  interfaces. 
An  implementation  of  the  IRDS  may  contain  either  or  both  of  the  inter- 
faces but  each  interface  will  support  the  full  capabilities  of  the  IRDS. 

As  stated  earlier  the  IRDS  interfaces  are  designed  to  allow  the 
system  to  communicate  with  the  user  and  vice  versa.   The  panel  interface 
is  designed  to  prompt  the  novice  through  the  system  while  the  command 
language  interface  is  designed  for  the  more  experienced  user  and  thus 
skips  most  of  the  panels  used  in  the  panel  interface. 

a.   Command  Language 

The  COMMAND  LANGUAGE  interface  supports  both  batch  and  inter- 
active modes .   The  commands  used  by  the  command  language  interface  cor- 
respond closely  with  the  functions  discussed  throughout  this  chapter. 
The  syntax  of  each  of  the  command  language  commands  is  presented  in  the 
Bacus-Naur  form.   Since  the  command  language  closely  parallels  the  dis- 
cussion presented  in  the  previous  sections  a  detailed  discussion  of  each 
command  will  not  be  attempted.   A  summary  listing  of  the  commands  and 
their  associated  functions  is  provided  in  Appendix  E.   However  the 
command  language  is  discussed  and  illustrated  in  depth  in  [Ref .  35] . 
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b.   Panel  Interface 

The  core  IRDS  provides  the  user  of  the  system  a  structured 
set  of  logical  screens  (or  panels)  which,  when  used  in  the  proper  sequence 
perform  the  functions  of  the  system.   The  panels  can  be  considered  to 
be  user  friendly  in  that  they  guide  the  user  through  the  procedures  for 
a  function. 

The  core  IRDS  does  not  specifically  identify  a  panel  structure 
of  physical  implementation  of  the  panel  interface.   It  is  therefore  up 
to  the  user  to  define  his  own  panel  structure  and  panel  map  (which  panel 
follow  which)  for  each  function. 

The  core  IRDS  does  provide  rules  for  the  structure  of  the 
panels  used  by  the  IRD.   They  are: 

*  Each  panel  shall  have  a  unique  name. 

*  The  panel  interface  is  to  have  an  inter-panel  structure  that  de- 
fines a  default  progression  of  panels. 

*  The  first  panel  encountered  is  the  HOME  panel. 

*  The  user  may  return  to  the  HOME  panel  at  anytime. 

The  structure  of  the  panel  interface  is  defined  in  terms  of 
panel  trees  and  panel  areas.   A  panel  tree  is  the  collection  of  one  or 
more  panels  used  to  perform  a  single  function.   A  panel  area  is  a  portion 
of  a  panel  that  is  associated  with  a  particular  category  of  information, 
and  deals  with  the  user  interaction  with  the  IRDS.   The  core  IRDS  identi- 
fies six  different  areas  associated  with  the  panel,  not  all  of  which  are 
shown  to  the  user  at  one  time: 

*  STATE  AREA  —  This  area  will  always  be  displayed  to  the  user.   It 
informs  the  user  of  the  name  of  the  dictionary  being  accessed,  and 
what  is  being  done  with  the  current  panel,  for  example,  adding  a 
record. 
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*  DATA  AREA  —  The  data  area  supports  the  user  in  one  of  two  ways: 
It  displays  labels  that  guide  the  user  while  he/she  performs  data 
entry;  and,  if  the  user  is  retrieving  information,  it  displays  the 
results. 

*  SCHEMA  AREA  —  The  schema  area  is  primarily  used  during  dictionary 
update  operations.   Examples  of  the  use  area  include: 

-  The  listing  of  all  valid  entity- types ,  when  adding  an  entity. 

-  Displaying  names  of  attribute-types  that  may  be  associated  with 
an  entity-type  being  entered. 

*  ACTION  AREA  —  The  action  area  displays  the  options  that  a  user  has 
when  proceeding  from  the  current  panel  to  another. 

*  MESSAGE  AREA  —  This  panel  area  displays  any  errors  and  warning 
messages. 

*  HELP  AREA  —  The  help  area  displays  information  that  the  system  can 
provide  in  response  to  a  request  for  help. 

c.   Operation  on  the  Panel  Interface 

The  panel  interface  will  generally  be  available  to  all  IRDS 
users.   The  core  IRDS  does  not  however,  require  that  the  panel  made  avail- 
able to  a  user  be  tailored  to  meet  his  view  of  the  system.   The  panel 
interface  will  still  only  allow  the  user  to  perform  those  functions  and 
operations  allowed  according  to  his  view  and  current  security. 
7.   IRDS  Modules 

The  draft  proposed  IRDS  standard  contains  specifications  for 
three  modules  which  may  be  implemented  along  with  the  core  IRDS.   They 
are: 

*  ENTITY  LEVEL  SECURITY.  [Ref.  36] 

*  APPLICATION  PROGRAM  (CALL)  INTERFACE.  [Ref.  37] 

*  SUPPORT  OF  STANDARD  DATA  MODULES.  [Ref.  38] 

Since  the  scope  of  this  thesis  deals  primarily  with  the  capa- 
bilities of  the  core  IRDS,  the  references  listed  above  should  be  con- 
sulted if  any  additional  information  beyond  that  provided  is  required. 
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a.  Entity  Level  Security 

This  module  allows  the  user  the  ability  to  assign  read  and 
write  limitations  to  individual  entities.   This  facility  operates  in 
addition  to  the  security  function  provided  inthe  core  IRDS . 

To  accomplish  entity  level  security,  the  module  introduces 
the  entity- type  ACCESS -CONTROLLER,  and  a  set  of  SECURED-BY  relationship- 
types  that  allow  an  ACCESS -CONTROLLER  entity  to  be  connected  with  entities 
of  all  other  types. 

b.  Application  Program  (call)  Interface 

This  module  provides  an  interface  from  a  standard  programming 
language  to  the  IRDS.   This  is  accomplished  by  using  the  call  feature  of 
the  programming  language.   In  this  way  the  IRDS  is  treated  as  an  applica- 
tion program  subroutine. 

c.  Support  of  Standard  Data  Models 

An  implementation  of  the  specifications  of  this  module  would 
assist  an  organization  in  describing  network  and  relational  databases, 
particularly  those  supported  by  NDL  and  SQL  command  languages.   The 
describing  of  network  and  relational  databases  is  accomplished  through 
the  addition  of  three  new  entity-types,  twelve  new  relationship-types, 
and  fourteen  new  attribute-types  to  the  Core  System-Standard  Schema, 
See  Appendix  D. 

E.  CONCLUSION 

The  NBS  IRDS  standards  provide  the  Information  Resource  Management 
arena  a  valuable  tool.   An  implementation  of  an  IRDS  using  the  core 
standards  as  discussed  above  would  deliver  to  the  DBMS  user  tremendous 
capability,  flexibility  and  uniformity  in  describing  and  controlling  an 
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organizations  data.  Finally  the  capabilities  described  above  far  exceed 
that  which  is  currently  available  with  most  of  the  dictionaries  provided 
with  DBMS  products. 

But  is  an  IRDS  implementation  possible.   The  next  chapter  discusses 
just  such  an  implementation. 
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IV.   NBS  IRDS  PROTOTYPE 

This  chapter  discusses  the  implementation  of  selected  portions  of 
the  NBS  IRDS  standards  in  the  form  of  a  relational  prototype  IRDS  provided 
as  Appendix  E.   Before  discussing  the  NBS  IRDS  capabilities  included 
in  the  prototype.   It  is  necessary  to  discuss  prototyping,  its  advantage/ 
disadvantages  and  why  prototyping  was  chosen  as  the  method  for  implement- 
ing an  IRDS. 
A.   PROTOTYPING  [Ref.  39] 

Webster's  dictionary  defines  a  prototype  as  one  of  three  possible 
things: 

*  An  original  or  model  after  which  anything  is  formed 

*  The  first  thing  of  its  kind 

*  A  pattern,  an  exemplar,  an  archetype 

The  second  definition  is  probably  the  most  relevant  to  this  discus- 
sion because  prototypes  are  being  used  in  data  processing  as  a  first  attempt 
at  design  which  is  then  extended  or  enhanced.   In  general  systems  develop- 
ment, a  prototype  is  known  as 

.  .  .  a  partially  complete  functional  model  of  a  target  system  whose 
purpose  is  to  provide  a  better  understanding  of  the  target  system's 
requirements  [Ref.  40] . 

A  software  prototype  is  characterized  by  the  following  feature.  It 
is  a  working  system,  although  of  limited  capability,  rather  than  just 
an  idea  on  paper.  A  prototype  may  become,  after  iterative  enhancement, 
a  production  system.  Its  original  purpose  is  to  test  assumptions  about 
requirements  and/or  system  design  architecture.  A  prototype  is  created 
quickly.  This  has  become  possible  only  in  recent  years  with  more  power- 
ful languages  such  as  dBase  II  and  III  which  are  less  procedurally 
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oriented.   Some  would  argue  however,  that  prototyping  was  the  way  soft- 
ware was  developed  before  the  advent  of  functional  decomposition  and  the 
system  development  life  cycle  whch  is  generally  accepted  and  used  today. 

In  the  early  days  of  software  development  writing  programs  was  the 
thing  to  do.   After  an  explanation  of  the  problem,  a  period  of  ques- 
tions and  answers,  and  research  into  the  nuts  and  bolts  of  a  method, 
the  programmer  began  his  or  her  work.   Starting  with  that  portion  of 
the  problem  that  was  well  understood,  lines  of  FORTRAN,  COBOL  or  ALGOL 
would  begin  to  appear.   As  time  passed  additional  portions  were  coded 
until  the  entire  program  was  complete.   Design  was  conducted  implicitly, 
if  at  all!   [Ref.  41] 

A  prototype  should  be  inexpensive  to  build,  at  least  less  than  it 
would  cost  if  a  conventional  high  level  language  were  used.   Indeed,  pro- 
totyping in  data  processing  originated  only  recently  because  until  re- 
cently, programming  a  protype  was  just  as  costly  as  programming  the 
working  system  [Ref.  42] .   The  important  point  is  to  get  something  running 
soon  to  establish  effective  communications  with  the  user  without  the  use 
of  extravagent  resources.   the  follow-on  development  of  a  prototype  is 
an  iterative  process  in  which  improvements  are  made  in  small  increments 
as  the  user  developer  work  together  and  discover  new  requirements . 
[Ref.  43] 

Mitchell  Spiegel,  formerly  of  Wang  Laboratories,  explains  the  proto- 
typing approach  as : 

...  a  process  of  modeling  user  requirements  in  one  or  more  levels  of 
detail,  including  working  models.   Project  resources  are  allocated  to 
produce  scaled  down  versions  of  the  software  described  by  requirements. 
The  prototype  version  makes  the  software  visible  for  review  by  users, 
designers  and  management.   This  process  continues  as  desired,  with  run- 
ning versions  ready  for  release  after  several  iterations.  [Ref.  44] 

Traditional  management  information  system  development  follows  a 

series  of  steps  (see  Figure  4.1).   Prototyping  is  considered  as  an 
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adjunct  activity  to  the  specification  of  requirements  CSee  Figure  4.2). 
The  results  of  prototyping  are  input  to  the  steps  following  requirements 

Feasibility  Study 
Requirements 
Product/Preliminary  Design 
Detailed  Design 
Coding 
Integration 
Implementation 
Operations  and  Maintenance 

Figure  4.1   Steps  in  Traditional  System  Development 

analysis,  but  may  or  may  not  be  used  actively  in  those  steps. 
1.   Advantages  of  Prototyping  - 

There  are  several  advantages  associated  with  the  use  of  proto- 
typing.  First  a  prototype  usually  gets  the  product  into  use  as  early  as 
possible.   Early  use  can  provide  assistance  to  the  decision  makers  and 
feedback  to  the  builders.   Second,  prototyping  is  considerably  cheaper 
than  a  "full-build"  approach,  which  delays  installation  until  the  pro- 
duct is  complete.   Third,  prototyping  is  a  convenient  way  .of  keeping  the 
product  simple,  which  is  valuable  to  both  builders  and  users.   Fourth, 
prototyping  lowers  risk  and  expectations.  [Ref.  45]   Fifth,  it  is  easy 
to  write  statements  in  a  requirements  document  which  say  "the  system 
shall  do  x"  and  "the  system  shall  be  capable  of  y."   However,  both  the 
developer  and  the  user  get  a  more  realistic  feeling  for  the  effort  and 
cost  of  a  feature  when  they  must  actually  add  it  to  a  working  model. 
Thus,  the  eventual  model  better  represents  what  is  feasible  than  a 
document  with  a  series  of  "shall  statements."   Even  though  the 
functionality  of  a  prototype  product  is  minimal,  the  user  is  forced  to  think 
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more  carefully  about  the  task  being  automated.   This  should  produce  a 
more  accurate  understanding  of  the  problem  [Ref.  29].   Finally,  prototyping 
unlike  traditional  methods  builds  an  effective  brigade  across  the  com- 
nunication  gap  between  the  user  and  the  developer. 


Feas  i  b  i 1  i  ty  Study 


Requ i rements 

Product/  Preliminary  Design 

De  ta  i 1 ed  Des  i  gn 

Cod  i  ng 

I n  tegr  at  i  on 

Impl emen  tat i on 


1 .  Identify    basic    needs 

2.  Develop    working    mode 

3.  Demo    in    context    & 
Solicit    refinements 

4.  Implement    revisions 

5.  Is    prototype    done    ? 
If    YES,    go    on    to 

de  ta  i 1 ed    des  i  gn 
If    NO,    qo    bacR    to 
step    3 


Figure   4.2      System  Development    Using    Prototyping 

2 .      Disadvantages   of   Prototyping 

Prototyping   has    some   decided   disadvantages   as   well.      Prototyping 
makes    it   difficult    to   plan    resource   use    because   a    clear   picture   of   what 
the    finished   product    will    look    like    is    not    provided.      It    also   makes    it 
difficult    to   decide   whether    to   enhance   an   old   version   or   build   a   new   one. 
Analysts   and   user    can   become   bored   after    the   nth    iteration   of    the    prototype, 
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In  using  the  traditional  development  process  there  are  specific  require- 
ments which,  when  met  by  proof  of  validation,  clearly  mark  the  job  as  com- 
plete.  Because  the  prototype  is  changing  continually,  it  creates  a  problem 
keeping  users  abreast  of  the  current  version  and  what  has  been  validated 
and  what  has  not.   Prototyping  can  cause  a  reduction  in  discipline  for  proper 
documentation  and  testing  (although  this  has  nothing  to  do  with  the  prototype 
itself) .   Because  there  is  less  emphasis  on  hard  thinking  and  "desk  check- 
ing" there  is  a  greater  chance  of  missing  a  basic  problem  which  could 
negate  assumptions  essential  to  the  product  being  developed.   Also  there 
is  the  chance  users  may  become  so  happy  with  the  prototype  that  they  consider 
it  a  functional  product  and  want  the  data  processing  people  to  start  work 
on  something  else.   A  study  using. the  ACT/1  software  package  for  prototyping 
showed  increased  needs  for  computing  resources.   If  the  productivity  gained 
from  using  prototyping  doesn't  offset  the  cost  of  the  increased  computing 
power,  then  the  prototyping  approach  is  serving  at  a  disadvantage. 
3.   Types  of  Prototyping 

There  are  two  approaches  to  prototyping:   the  throwaway  prototype 
The  throwaway  prototype  development  process  has  the  advantage  that  when 
the  developer  can  show  the  user  an  immediate  capability  when  he  is  through, 
he  can  just  discard  the  product.   This  lowers  the  developer's  risk  and 
the  user's  expectations.   The  evolving  prototype  process  on  the  other 
hand  is  better  suited  for  the  development  of  an  initial  capability  that 
will  evolve  into  a  finished  product.   The  evolving  prototype  has  the 
disadvantage  that  the  user  may  accept  the  first  version  and  thus  short 
circuit  full  development. 
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4.   Reasons  for  Prototyping 

Prototyping  was  chosen  as  opposed  to  full  life  cycle  development, 
because  time  constraints  prevented  full  development  of  a  DD  system 
whereas  prototyping  allowed  a  viewable  product  to  be  produced  in  the 
given  timeframe.   Additionally  the  evolving  prototype  process  was  used  to 
develop  the  IRDS  with  the  anticipation  that  additional  capabilities  as 
specified  in  the  NBS  IRDS  standards  would  be  added  according  to  user  needs 
as  additional  versions  were  implemented. 
B.   THE  IRDS  PROTOTYPE 

dBASE  III  a  Data  Base  Management  System  (DBMS)  was  selected  as  the 
development  tool  for  the  IRDS  prototype,  because  data  dictionary  systems 
are  essentially  a  specialized  kind  of  database  system.   The  prototype 
could  have  been  written  in  Pascal  or  COBOL  but  the  time  required  to  produce 
a  usable  product  would  have  been  prohibitive.   Additionally  since  the 
prototype  was  developed  using  a  DBMS  system  certain  capabilities  were  al- 
ready available,  i.e.,  a  query  processor,  file  maintenance  routines,  and 
high  level  language.   The  intention  was  not  to  develop  a  marketable  pro- 
product  but  to  demonstrate  and  evaluage  the  capabilities  described  in  the 
NBS  IRDS  standard. 

The  IRDS  prototype  is  based  on  a  reasonable  subset  of  the  core  features 
presented  in  Chapter  3.   The  features  listed  below  constitue  IRDS  Proto- 
type Version  1.0  (See  Appendix  C) : 

*  Panel  Interface 

*  Security 

*  Add  Entity 

*  Modify  Entity 
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*  Delete  Entity 

*  Add  Relationship 

*  Modify  Relationship 

*  Delete  Relationship 

*  Add  Schema 

*  Modify  Schema 

*  Delete  Schema 

*  IRDS  Output 

*  IRDS  Query 

The  remainder  of  the  features  listed  in  Chapter  4,  though  desirable, 
will  be  left  for  implementation  in  later  versions. 

1.   A  Relational  Model  of  the  IRDS 

The  IRDS  prototype  accounts  for  several  different  relations  in- 
cluding users,  systems,  programs,  modules,  document,  files,  records  and 
elements.   The  generalized  format  of  these  relations  is  as  follows: 

*  USER  (access-name ,  id-name,  duration-type,  description,  date-added, 
added-by,  comments,  last-modification-date,  last-modif ied-by ,  number- 
of-modifications) 

*  SYSTEM  (access-name ,  id-name,  duration-type,  description,  date-added, 
added-by,  system-category,  comments,  last-modification-date,  last- 
modif  ied-by  ,  number-of-modif ications) 

*  PROGRAM  (access-name,  id-name,  duration-type,  description,  date-added, 
added-by,  lines-of-code ,  comments,  last-modification-date,  last- 
modif  ied-by  ,  number-of-modif ications) 

*  MODULE  (access-name,  id-name,  duration-type,  description,  date-added, 
added-by,  lines-of-code,  comments,  last-modification-date,  last- 
modif  ied-by ,  number-of-modif ications) 

*  DOCUMENT  (access-name,  id-name,  duration- type ,  description,  date- 
added,  added-by,  comments,  last-modification-date,  last-modif ied-by , 
number-of-modif ications) 
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*  FILE  (access-name,  id-name,  duration-type,  description,  date  added, 
added-by,  number-of-records ,  comments,  last-modification-date,  last- 
modif ied-by ,  number-of-raodif ications) 

*  RECORD  (access-name,  id-name,  duration-type,  description,  date-added, 
added-by,  number-of-elements ,  size,  comments,  last-modification-date, 
las t-modif ied-by ,  number-of-raodif ications ) 

*  ELEMENT  (access-name,  id-name ,  duration-type,  descritpion,  date-added, 
added-by,  element- type ,  element- length,  low-of -range ,  high-of -range , 
allowable-value,  comments,  last-modification-date,  las t-modif ied-by , 
number-of -modifications) 

for  a  detailed  explanation  of  the  attributes  for  these  relations  see 
[Ref.  47] . 

Relationships  among  the  various  relations  are  tracked  by  having 
relations  with  a  verb  name  reflecting  how  one  entity  relates  to  another. 
For  example,  since  a  program  can  contain  several  modules,  a  program-con- 
tains-module  relations  is  included  in  the  dictionary.   Its  format  is  as 
follows : 

*   PROGRAM-CONTAINS -MODULE  (program-name, 

module-name) .   An  example  of  this  relation  would  be: 

PROGRAM-CONTAINS -MODULE   (u-8,   u-8-10) 

(u-8,   u-8-20) 

(u-8,   u-8-30) 
The  prototype  implements  twelve  of  the  sixty-four  relationships  specified 
in  the  NBS  IRDS  standard.  See  Appendix  A  for  a  complete  listing  of  the 
allowable  relationships.   Listed  below  are  the  twelve  relationships  in- 
cluded in  the  prototype: 

*  PROGRAM-PROCESSES-RECORD  (program-name,  record-name) 

*  PROGRAM-PROCESS-FILE  ( program- name ,  file-name) 

*  SYSTEM-CONTAINS-FILE  (system-name,  file-name) 
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*  USER-CONTAINS-SYSTEM  (user-name,  system- name) 

*  USER-RESPONSIBLE-FOR-SYSTEM  (record-name,  system-name) 

*  FILE-CONTAINS-RECORD  (file-name,  records-name) 

*  RECORD-CONTAINS-ELEMENT  (record-name,  element-name) 

*  USER-RESPONSIBLE-FOR-FILE  (user-name,  file-name) 

*  PROGRAM-PRODUCES -DOCUMENT  (program-name ,  document-name) 

*  PROGRAM-CONTAINS -MODULE  ( program- name ,  module-name) 

*  SYSTEM-CONTAINS-PROGRAM  (system-name,  program-name) 

*  PROGRAM-PROCESSES-ELEMENT  (program-name,  element-name) 
2 .   Interface 

The  NBS  IRDS  standard  provides  for  two  user  interface  capabilities 
The  Command  Language  Interface  and  the  Panel  Interface.   The  Panel  Inter- 
face method  was  chosen  because  it  provides  a  "user  friendly"  communica- 
tion link  between  the  IRDS  and  the  user.   Figures  4.3  thru  4.6  provide 
a  series  of  panel  trees  that  diagrammatically  represent  panel  interface 
system  used. 

The  panel  structure  itself  followed  the  guidelines  provided  in 
the  IRDS  standard  (See  Figure  4.7).   The  IRDS  standard  allows  for  six 
possible  areas  to  be  defined  in  the  panel  state  area,  data  area,  schema 
area,  action  area,  message  area  and  help  area.   All  areas  except  the 
help  area  are  included  in  this  prototype.   Figure  4.7  shows  what  portions 
of  the  screen  are  used  for  each  of  the  areas. 
C.   IRDS  START-UP 

This  IRDS  prototype  was  written  in  dBASE  III  and  uses  panel  interfac- 
ing as  the  means  of  communication  with  the  user.   The  first  panel  that 


73 


HOME  PANEL 


DICTIONARY 
MAINTENANCE 
P^MEL  TREE 


DICTIONARY 

OUTPUT 
PANEL  TREE 


DICTIONARY 

QUERY 
PANEL  TREE 


SCHEMA 
MAINTENANCE 
PANEL  TREE 


SCHEMA 

OUTPUT 
PttJEL  TREE 


Figure    4.3      The   Panel    Interface    —    Overall    Structure 
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Figure    4.4      Dictionary   Maintenance    Panel    Tree 
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Figure  4.7   Panel  Structure 
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that  a  user  sees  when  signing  on  the  system,  is  one  that  requires  the 
individual  to  insure  that  he/she  has  the  computer  in  the  proper  mode 
(Figure  4.8) 
D-  SECURITY 

Security  is  provided  in  two  ways.   First,  the  system  requires  the 
user  to  enter  a  user  ID  and  password  which  are  stored  as  attributes  of 


TEST 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 


PLEASE  INSURE  THAT  YOU 
HAVE  THE  '  CAPS  LOCK  ' 
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TEST  HERE  
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Figure  4.8   Initial  Panel 

the  SECURITY-ACCESS  ENTITY.   Second,  the  SECURITY-ACCESS  ENTITY  contains 
additional  attributes  that  pertain  to  which  entities  the  user  can  view, 
display  and/or  modify  (See  Appendix  F  for  a  detailed  description  the 
entity  structure).   Figure  4.9  depicts  the  panel  that  requires  the  user 
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to  log  into  the  system  using  his  user  ID  and  password.   Once  a  user  has 
entered  his  ID  and  password  the  system  will  grant  or  deny  access  to  the 
system.   The  system  will  allow  the  user  three  chances  to  enter  his  ID 
and  password  correctly,  if  a  proper  logon  has  not  been  accomplished  at 
that  time  the  system  will  terminate.   If  access  is  granted  additional 
variables  will  be  loaded  to  the  system  that  will  restrict  the  user  ability 
to  add,  modify  and  change  relations  and  relationships  during  the  current 
session.   The  data  administrator  is  the  only  user  capable  of  modifying 
the  attributes  associated  with  a  user's  security-access  entity.   Once 
the  user  has  successfully  logged  in,  the  system  will  display  the  main 
menu  (Figure  4.10).   From  this  point  the  user  can  proceed  to  any  other 
panel.   This  panel  must  always  be  returned  before  any  other  function  can 
be  used. 
E.   POPULATING  AND  MAINTAINING  THE  DICTIONARY 

The  routines  to  add,  modify  and  delete  entities  and  relationships  are 
executed  from  the  maintenance  menu  (See  Figure  4.11).   The  user  decides 
which  maintenance  activity  he  want  to  do  and  makes  the  appropriate  menu 
selection.   The  system  will  then  activate  the  appropriate  maintenance 
module  and  present  a  panel  to  the  user  showing  him  what  his  options  are  or 
what  input  is  required. 

The  following  sections  describe  each  of  the  five  dictionary  maintenance 
functions  available  to  the  user  as  part  of  the  prototype. 

1.   Adding  Entities 

If  the  prototype  user  selects  the  add  entity  option  from  the 
maintenance  menu,  the  system  will  prompt  him  as  to  which  type  of  entity 
he  would  like  to  add  (See  Figure  4.12).   Once  the  user  has  indicated  his 
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SECURITY 

INFORmTION  RESOURCE  DICTIONARY  SYSTEM 


PLEASE  ENTER  USER  ID  . 
PLEASE  ENTER  PASSWORD 


##*»»»#***♦*»**♦*«#»**♦»*»#*#»♦*»*»*»*»#*»*»»*♦**»*#»*#*#»»#***##♦«»* 


Figure  4.9   Security  Panel 
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# 

main 

information  resource  dictionary  system 

main  menu 


1)  DICTIONS  MAINTENANCE 

2)  DICTIONARY  OUTPUT 

3)  DICTIONARY  QUERY 

4)  SCHEMA  MAINTENANCE 

5)  SCHEMA  OUTPUT 

6)  EXIT  DICTIONARY  SYSTEM 

ENTER  YOUR  CHOICE  (1-6)  FROM  ABOVE: 

* 
ft 
ft 

»  *»#*»»ft#ft»##*ft»»«»ftft»ft#ft»ft#ft***###««ft»ft#ft«*###ftft«#«**»  *»#ftft#ftft»*ft*#»ft 


Figure  4.10   Main  IRDS  Panel 
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* 

1.1.8.9.8.8  * 

INFORmTION  RESOURCE  DICTIONARY  SYSTEM  * 

* 
MAINTENANCE    MENU  * 

* 

1)  ADD  ENTITY    .  * 

2)  MODIFY  ENTITY  * 

3>       DELETE  ENTITY  * 

* 

4)  ADD  RELATIONSHIP  » 

* 

5)  DELETE  RELATIONSHIP  * 

* 

6)  RETURN  TO  MAIN  MENU  * 

» 

ENTER  YOUR  CHOICE  (1-6)  FROM  ABOVE:  * 

* 
» 

# 


Figure  4.11   Maintenance  Panel 
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choice,  the  system  will  present  a  panel  prompting  the  user  to  enter  the 
appropriate  attributes  about  the  entity  (See  Figure  4.13).   For  a 


1  1  1  8  8  8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ADD  ENTITY 

1)  USER  6)       FILE 

2)  SYSTEM  7)       RECORDS 

3)  PROGRAM  8)       ELB1ENT 

4)  MODULE  9)       RETURN  TO  PREVIOUS  MOW 

5)  DOCUMBfT  18)       RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  (1-18)  FROM  ABOVE:  8 


#*♦#♦»»##**#»#»**#♦**###♦♦♦#»»#***»*#♦**♦**#»*♦**»*»***#**»##*♦****** 


Figure  4.12   Add  Entity  Panel 

complete  list  of  all  allowable  entity  attributes  Sec-  Appendix  A. 
2 .   Modifying  Entities 

If  the  prototype  user  elects  to  modify  an  existing  entity,  the 
system  display  a  panel  asking  which  entity  he  desires  to  modify  (Figure 
4.14  and  4.15).   Once  the  user  makes  his  selection  as  to  which  entity 
to  modify  the  system  restrieves  the  desired  tuple  and  presents  a  panel 
displaying  it's  current  contents.   The  user  can  then  modify  the  tuple  as 
desired  (Figure  4.16) 
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*  * 

*  * 

*  Tuple  No.  1  * 

*  ELEMENT  » 

*  ACC-NAME        * 

»  id  name       ~~~~1 * 

*  DE5CRIPT        ~~~~~~~ * 

*  * 

*  DATE  ADDED    ~~ T~7 » 

*  ADDED  BY                      » 

*  COMMENTS        ~~~~~~~~~ * 

»  LST  MOD  DT  ~T~7                                                                                        » 

*  LST~MOD~BY    * 

*  NUhTOF  ROD  * 

*  DURffT  OAL  * 

*  DURATTYPE  * 
»  LOCATTON  ,  * 
»  SECURITY        * 

*  * 

*  * 

************************** ****************** **** »»»********** *♦**♦♦♦*«* 


Figure  4.13   Add  Entity  Data  Input  Panel 


********************************************************************** 

*  * 

*  1.1 .2.9.8.9  * 
#.  '  INFORMATION  RESOURCE  DICTIONARY  SYSTEM            » 

*  » 
»  MODIFY  ENTITY                      » 

*  * 

*  1)   USER  6)      FILE                   * 

*  * 

*  2)       SYSTEM  7)      RECORDS                                          * 

*  * 

*  3)      PROGRAM  8)      ELEMENT                                          ♦ 

*  * 

*  4)   MODULE  9)       RETURN  TO  PREVIOUS  MENU      * 

*  * 

*  5)   DOCUMENT  10)   RETURN  TO  MAIN  MENU         » 

*  * 

*  ENTER  YOUR  CHOICE  (1-18)  FROM  ABOVE:  8  * 
»  * 
»  * 
»  * 

*  * 
»  * 


Figure  4.14   Modify  Entity  Panel 
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###»#####ftft*#####»#*ft*ft###*ftftft»ft***##*##»»##«ftft##*ft»ft*####*#*»#»*##ft#ft* 

»  ft 

x   I    1   2  1   B  8  * 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM  * 

* 
MODIFY  ELEMENT  * 

« 
ENTER  TUPLE  NUMBER  OF  THE  ELEMENT  » 

YOU  WISH  TO  MODIFY  » 

ft 
ft 
* 
« 
# 

ft«ftft*ft*«««ftft«ftftft*ft»««ft»ftft«ftftft»«ftft«ftftftftftft«ftft«ft»«»ft««»ft»»ftftft»ftft»«»«ft**ft« 


.Figure  4.15   Modify  Entity  Select  Panel 


♦♦###*#♦»#»#####*#»##♦***»##**##♦♦♦*##♦####♦»♦*##»»#»♦♦#*#*#*♦#**##*♦#♦ 


ft 

« 

* 

* 

* 

# 

» 

* 

ft 

Tuple  No. 

USER 

1 

ft 

ft 

ft 

* 

ACC-NAME 

ACC  NAME 

# 

ft 

ID  NAME 
DE5CRIPT 

ACCESS  NAME 

# 

ft 

The  short  name  oiven  to  an  entity.     This  allows 

ft 

* 

for  the  easy  access  of  entities. 

ft 

ft 

DATE  ADDED 

86/81/85 

» 

ft 

ADDED  BY 

Robert  A.  Kirsch  II 

ft 

ft 

COMMENTS 

This  is  a  standard  attribute  of  the  IRDS. 

» 

ft 

LST  MOD  DT 

86/81/85 

* 

ft 

LSTMOD'  BY 

Kirsch 

♦ 

ft 

NUMDF  ROD 

881 

ft 

ft 

DURST  9AL 

8 

ft 

ft 

DURAT^TYPE 

N/A 

# 

ft 

LOCATION 

Schema 

» 

ft 

ft 
ft 

SECURITY 

none 

ft 
* 
» 

USE  ARROWS  TO  POSITION  CURSER  TO  DESIRED  FIELD. 

ft 

* 

♦*#♦#***♦*♦♦♦*♦#♦♦#♦*♦*#**#♦##♦###«#»*##♦*♦♦*»»##*♦♦♦*♦♦#♦♦*»♦♦**#♦♦**# 


Figure  4.16   Modify  Entity  Input  Panel 
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3.   Deleting  Entities 

If  the  prototype  user  selects  the  delete  entity  option,  the  system 
presents  a  panel  requesting  that  the  user  select  an  -entity  type  to  delete. 


1.1.3.8.8.8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

DELETE  ENTITY 

1)  USER  6)   FILE 

2)  SYSTEM        7)   RECORDS 

3)  PROGRAM        8)   ELEMENT 

4)  MODULE         9)   RETURN  TO  PREVIOUS  MENU 

5)  DOCUMENT  IB)   RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  < 1 -18)  FROM  ABOVE:  8 

#*»*#»*#*#*»»*♦*##»*##*»*»»***#**»#»##**»#*#**♦»*♦#**#*♦#♦*#»#*##«»#» 

Figure  4.17   Delete  Entity  Panel 


The  system  then  request  the  user  to  identify  the  particular  entity  tuple 

to  be  deleted  and  provided  instructions  on  how  to  complete  or  short  the 

deletion.   Once  the  user  indicates  which  tuple  he  wishes  to  delete,  the 

system  displays  the  tuple  and  waits  for  the  user  to  complete  the 
transaction  (Figure  4.16  thru  4.18) 

4.   Adding  Relationships 

If  the  prototype  user  elects  to  add  a  relationship  the  system 
present  a  panel  asking  him  to  select  which  type  of  relationship  lie  wishes 
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*♦******»*###*****#*#*****#♦**#*****♦**»#»»****♦***»*♦*****«***♦*»#♦» 

1.1.2.1.8.8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

MODIFY  ENTITY 

ENTER  TUPLE  NUMBER  OF  THE  ELEMENT 
YOU  WISH  TO  DELETE.  THE  RECORO 
WILL  BE  DISPLAYED  FOR  YOU  TO 
EXAMINE.  IF  YOU  ARE  SURE  THAT 
YOU  ARE  DELETING  THE  RIGHT 
RECORD  DEPRESS  *U. 

IF  YOU  DO  NOT  WANT  IT  DELETED 
DEPRESS  '8'  TO  RETURN  TO  THE 
MAINTENANCE  MENU. 

ENTER  THE  TUPLE  NUMBER  NOW: 

**«*«#**♦***##*#*»♦#****♦*»♦♦»♦♦♦»♦♦»»»»♦**♦**♦*##♦*♦♦*»*♦»*#*»**»♦**# 

Figure  4.18   Delete"  Entity  Selection  Panel 


MH^imtimHHHHimmHIHIHiHitMHHIHHHimHHHIHHH 


ft** 
ft 

*  ft 

*  * 
ft  ' 

ft 

ft    Tuple  No.              1  x 

*  USER  ; 
»    ACC-NAME        ACC  NAME  , 

*  ID  NAME          ACCESS  NAME » 

*  DE3CRIPT       The  short  name  given  to  an  entity.    This  allows  » 

*  «»,,.  ...         *0P  *ne  *isy  access  of  entities.  # 

*  DATE  ADDED  8<S/81/85  « 
»    ADDED"  BY        Robert  A.  Kirsch  II  * 

*  FS^SI5^    This  is  a  standard  attribute  of  the  IRDS.  # 

*  LST  MOD  DT    86/81/85  * 

*  LST~MOD~BY    Kirsch  » 

*  NUM"0F  rTOD  881  * 
ft  DURST  UAL  8  » 
»    DURAT^TYPE    N/A  « 

*  LOCATION  Schema  » 
»    SECURITY        none  » 

*  » 

*  USE  ARROWS  TO  POSITION  CURSER  TO  DESIRED  FIELD.  # 

*  » 

»HMmHH»HHHHH»»»H»H»HH»H»»»H»HHH»H»t»»»H»»»H»H»t 

Figure  4.19   Delete  Entity  Confirmation  Panel 
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to  add  (Figure  4.20).   When  the  user  makes  his  choice  the  system 
executes  the  relationship  add  module  and  prompts  the  user  for  the  required 
input  (Figure  4.21)   This  prototype  version  allows  12  relationships. 
See  Appendix  A  for  a  complete  list  of  all  relationships  allowed  in  the 
IRDS  standard. 


* ******** >*»»*»*t**)»*»*»*t*t*«*****»**»lf*tit**t**iOttl»t*********4 

1.1.4.8.8.8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ADD  TO  RELATIONSHIP 

1)  USER  CONTAINS  SYSTEM      8)  FILE  CONTAINS  RECORDS 

2)  SYSTEM  CONTAINS  PROGRAM   9)     RECORD  CONTAINS  ELEMENT 

3)  PROGRAM  PROCESSES  FILE    IB)  USER  RESPONSIBLE  FOR  SYSTEM 

4)  PROGRAM  PROCESSES  RECORD  11)  USER  RESPONSIBLE  FOR  FILE 

5)  PROGRAM  PROCESSES  ELEMENT  12)  PROGRAM  PRODUCES  DOCUMENT 

6)  SYSTEM  CONTAINS  PROGRAM   13)  RETURN  TO  PREVIOUS  MENU 

7)  PROGRAM  CONTAINS  MODULE   14)  RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE: 

»#»#*»»*»»*»»*#»*»**»»•»»»*»*»*»**»« »*»»»»»*»ft»»«»ftt*»»»»»»*»*»»»***fr 

Figure  4.20   Add  Relationship  Selection  Panel 


5 .   Modifying  Relationships 

This  version  of  the  IRDS  prototype  does  not  contain  a  modify  re- 
lationship capability  as  the  add  relationship  module  serves  the  same 
purpose . 
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6.   Deleting  Relationships 

This  module  of  the  IRDS  prototype  allows  the  user  to  select  a 
tuple  of  a  particular  relationship  and  mark  it  for  deletion.   The  user 


i 
* 

Record  No         1  » 

USERJW1E J 

SYSTEMNAME    I 

» 

« 

Figure  4.21  Add  Relationship  Input  Panel 


must  identify  which  type  of  relationship  he  want  to  modify  (Figure  4.24). 
After  the  user  makes  a  selection,  the  delete  module  is  loaded  which  prompts 
the  user  to  identify  which  tuple  to  delete  and  provides  him  with  instruc- 
tions on  how  to  complete  the  transaction.   The  system  then  retrieves 
the  tuple  and  displays  it  for  verification  and  transaction  completion 
(See  Figures  4.25  and  4.26). 
F.   THE  DICTIONARY  OUTPUT  FACILITY 

The  IRDS  prototype  allows  the  user  to  generate  dictionary  output  in 
two  forms,  screen  and  printer.   When  the  user  selects  the  dictionary  output 
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#**«»»»«»»*»»»»«»ft#ft#*#*»«ft»»»»ft»»»#»»»ftft#ft**##*##*Oft#ft«»»«ft»»»»»ft*»» 

ft 

1.1.5.8. 6. 8  * 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM  * 

DELETE  FROM  RELATIONSHIP  » 

1)  USER  CONTAINS  SYSTEM     8)  FILE  CONTAINS  RECORDS  * 

2)  SYSTEM  CONTAINS  PROGRAM   9)  RECORD  CONTAINS  ELEMENT  * 

3)  PROGRAM  PROCESSES  FILE   IB)  USER  RESPONSIBLE  FOR  SYSTEM  * 

4)  PROGRAM  PROCESSES  RECORD  11)  USER  RESPONSIBLE  FOR  FILE    ft' 

ft 

5)  PROGRAM  PROCESSES  ELEMENT  12)  PROGRAM  PRODUCES  DOCUMENT    * 

* 

6)  SYSTEM  CONTAINS  PROGRAM   13)  RETURN  TO  PREVIOUS  MENU      * 

7)  PROGRAM  CONTAINS  MODULE   14)  RETURN  TO  MAIN  MENU        * 

ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE:  * 

* 
« 

*#«♦*#»###«»*»*♦####»♦#**»###**»»##»####»#»#»»»#»#*«**###*##*#*##»*#»# 


Figure  4.24   Delete  Relationship  Selection  Panel 


ft*ftftftftftft«ftftftftftft»ftft«ft»ft»«*ftftftftftft*«*ftftftft»ftftftftftftft*ftftftftftft»ft*»ftftft**ftftft*ftftft* 

ft 

1.1.5.1.8. B  * 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM  * 

ft 

DELETE  FROM  RELATIONSHIP  * 

ft 

ENTER  TUPLE  NUMBER  OF  THE  * 

USER-PROCESSES-SYSTEM  * 

ft 

TUPLE  THAT  YOU  WISH  TO  HAVE  DELETED  * 

THE  TUPLE  WILL  BE  DISPLAYED  FOR  * 

YOU  TO  EXAMINE.  IF  YOU  ARE  SURE  * 

THAT  TOU  ARE  DELETING  THE  RIGHT  * 

TUPLE  DEPRESS  *U  .  IF  YOU  DO  NOT  * 

WANT  IT  DELETED,  TYPE  "  END  .  IF  » 

YOU  WANT  TO  EXIT  THE  MODULE  WITHOUT  * 

IDENTIFYING  A  TUPLE  DEPRESS  B  TO  * 

RETURN  TO  THE  PREVIOUS  MENU.  * 

» 

ENTER  THE  TUPLE  NUMBER  NOW  * 

» 

##*ft»»#»»*»»*#»»ft»»»*ft#**#»ft*»»###*»»*»#»ft**#*#***ft»#ft»***ft#»ft***ftft**» 


Figure  4.25  Delete  Relationship  Panel 
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option  from  the  main  menu,  the  system  executes  the  dictionary  output 
module  and  presents  to  the  user  a  panel  (Figure  4.27)  requesting  that 
he  choose  entities  or  relationships  as  output. 


****#*»****#*»#»**«#*#*#*»#»«»*»*»#»#§#§*#»#§#***«*#»*»»»*«»«»*»§# 


Record  No         1 
USER.NAME        PAY-DEPT 
SYSTEM  NAME    SAL-PAY 


»***»**»*»«»»*»«#»*»**»ti*»»»«H»»f»»*»»»##»#»»*t##»****»***»#*t*#***» 


Figure  4.26  Delete  Relationship  Tuple  Verification  Panel 


1.   Entities 

If  the  user  chooses  the  entity  output  option,  the  system  presents 
a  panel  requesting  the  type  of  entity  to  be  output  (Figure  4.28).   The 
system  then  prompts  for  whether  output  is  to  be  generated  and  displayed 
on  the  screen  or  sent  to  the  printer  (Figure  4.29).   The  system  then 
displays  all  tuples  of  the  entity- type  selected,  one  at  a  time  for 
screen  output  and  all  at  once  for  printer  output  (Figure  4.30).   The 
current  version  of  the  IRDS  prototype  does  not  allow  the  user  to  select 
which  attributes  will  be  displayed  or  limit  the  number  of  entities 
displayed.   However  the  query  function  does  give  the  user  the  ability 
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to  display  selected  entity  types.   This  capability  will  be  discussed  in 
Section  G. 


1.2.8.8.8 .8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

DICTIONARY  OUTPUT 

1)  ENTITY 

2)  RELATIONSHIP 

3)  RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE: 


#♦»#*«#*####♦»*#»*#»*♦**♦#»*♦#♦*#########*#♦♦*♦»#»*#*###»**##♦#»#♦«♦# 


Figure  4.27   Dictionary  Output  Selection  Panel 

2 .   Relationships 

If  the  prototype  user  decides  to  output  the  tuples  associated  with 
a  particular  relationship,  he  makes  the  appropriate  choice  on  the  diction- 
ary output  panel  (Figure  4.27).   The  system  activates  the  appropriate 
module  and  then  requests  that  the  user  identify  the  relationship  to  be 
output  (See  Figure  4.31.   After  the  user  selects  the  relationship,  the 
system  prompts  for  whether  output  is  to  be  generated  to  the  screen  or 
printer  (Figure  4.32).   The  system  then  displays  all  tuples  of  the  entity- 
type  selected  (Figure  4.33).   This  version  of  the  IRDS  prototype  does 
not  allow  the  user  to  select  which  entities  associated  with  the  relationship 
are  to  be  displayed.   However  the  query  function  does  give  the  user  the 
ability  to  display  selected  entities  with  a  relationship. 
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********************************************************************* 

1.2.1.6.8.8 


INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ENTITY  OUTPUT 

1) 

USER 

6) 

FILE 

2) 

SYSTEM 

7) 

RECORDS 

3) 

PROGRAM 

8) 

ELEMENT 

4) 

MODULE 

9) 

RETURN  TO  PREVIOUS  MENU 

5) 

DOCUMENT 

18) 

RETURN  TO  MAIN  MENU 

ENTER  YOUR  CHOICE  (1-18)  FROM  ABOVE:  1 


********************************************************************** 


Figure  4.28   Entity  Output  Panel 

********************************************************************* 

12  116  8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ENTITY  OUTPUT 

LISTED  BELOW  ARE  THE  CHOICES  FOR  HOW 

YOU  CAN  HAVE  THE  RELATION        USER  * 

DISPLAYED. 

1)  SCREEN  OUTPUT 

2)  PRINTER  OUTPUT 

3)  RETURN  TO  PREVIOUS  MENU 
ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE: 


*#*ftft*«»ftftft«ftft»ft*«ft«ftftftftftftftftftftftftftftft»ft«»«ftftftft**ftftft*««**«»ft*ftft«*ft«****» 


Figure  4.29   Output  Selection  Panel 
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HHHtft*ft###ftftftM*#**ft*»*ft»tt»**#*MM»**ftO*M*ftftft*ftftftft»******»»**ftftftft** 


Tuple  No. 

USER 

ACC-NAME 
ID  NAME 
DESCRIPT 

DATE  ADDED 
ADDED"  BY 
COMMENTS 

LST  MOD  DT 
LSTHOD-BY 
NUM*OF  ROD 
LOCATION 
SECURITY 


1 

PAY-DEPT 

PAYROLL  DEPARTMENT 

The  department  witfiin  the  organization  that  pro- 
duces the  companies  weekly  and  monthly  payroll. 
86/01/85 

Robert  A.  Kirsch  II 
This  is  a  standard  attribute  of  the  IRDS. 

86/81/85 

Kirsch 

881 

Schema 

none 


PRESS  RETURN  TO  SEE  THE  NEXT  TUPLE. 


^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦#***##o**#»***»**#»»#»**»#**####***»* #*»♦»»»»*»*« 


Figure  4.30   Entity  Output 
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******************************** ****f ******  ******** *♦**«♦*♦** ******** 

1  2  2  9  8  B 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

RELATIONSHIP  OUTPUT 

1)  USER  CONTAINS  SYSTEM      8)  FILE  CONTAINS  RECORDS 

2)  SYSTEM  CONTAINS  PROGRAM   9)     RECORD  CONTAINS  ELEMENT 

3)  PROGRAM  PROCESSES  FILE    18)  USER  RESPONSIBLE  FOR  SYSTEM 

4)  PROGRAM  PROCESSES  RECORD  11)  USER  RESPONSIBLE  FOR  FILE 

5)  PROGRAM  PROCESSES  ELEMENT  12)  PROGRAM  PRODUCES  DOCUMENT 

6)  SYSTEM  CONTAINS  PROGRAM-  13)  RETURN  TO  PREVIOUS  MENU 

7)  PROGRAM  CONTAINS  MODULE   14)  RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE: 

#♦#*********#*****»*#*****»***#*****»##*****#************#**#*#»»**** 
Figure  4.31   Relationship  Ouptput  Selection  Panel 
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I .2.1.1.1.1 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

RELATIONSHIP  OUTPUT 

LISTED  BELOW  ARE  THE  CHOICES  FOR  HOU 
YOU  CAN  HAVE  THE  RELATIONSHIP 

USER  PROCESSES  SYSTEM 

DISPLAYED. 

t)   SCREEN  OUTPUT 

2)  PRINTER  OUTPUT 

3)  RETURN  TO  PREVIOUS  MENU 
ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  _ 

it********************************************************************* 

Figure  4.32   Output  Selection  Panel 


» 


********************************************************************** 


USER  PROCESSES  SYSTEM 


RECORD  I        1 

USER  ACCESS  NAME:  PAY-DEPT 

SYSTEM  ACCESS  NAME:  SAL-PAY 


PRESS  RETURN  TO  SEE  NEXT  TUPLE 
********************************************************************* 


Figure    4.33      Relationship  Output 
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3.   Schema 

The  IRDS  prototype  also  allows  the  user  to  display  the 
schema  for  all  entity-types  and  relationship-types.   In  order  to  exe- 
cute this  portion  of  the  prototype  the  user  selects  SCHEI4A  OUTPUT 
from  the  main  menu  (Figure  4.10).   Once  the  selection  has  been  made, 

********************************************************************* 

1  5  8  B  8  0 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

SCHEMA  OUTPUT 

1)  ENTITY 

2)  RELATIONSHIP 

3)  RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE: 


Figure  4.34   Schema  Output  Selection  Panel 

the  system  executes  the  schema  output  module  and  requests  that  the  user 
choose  which  type  of  schema  to  output  and  it's  ACCESS-NAiME  (Figure  4.34 
and  4.35).   The  user  is  then  prompted  by  means  of  a  panel  to  select  the 
output  medium.   The  system  will  then  display  the  requested  schema  struc- 
ture (Figure  4.36  and  4.37).   Figures  4.36  and  4.37  provided  below  depict 
the  output  of  an  entity-type  schema.   The  process  for  displaying  a  re- 
relationship  schema  is  identical  and  will  not  be  explained  further  here. 
G.   QUERY 

The  IRDS  prototype  query  function  give  the  prototype  user  the  ability 
to  generate  ad  hoc  queries  about  any  relationships  that  the  system 
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1) 

USER 

2) 

SYSTEM 

3) 

PROGRAM 

4) 

MODULE 

5) 

DOCUMENT 

6) 

FILE 

7) 

RECORDS 

8) 

ELEMENT 

9) 

RETURN  TO  PREVIOUS  MENU 

16) 

RETURN  TO  MAIN  MENU 

********************************************************************** 

* 

1 .1 .3.0.0.8  * 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM  * 

* 
ENTITY  SCHEMA  OUTPUT  * 

» 

» 

* 
» 
* 
* 

* 

BETTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  1  * 

* 

# 


Figure  4.35   Entity  Select  Panel 

###*#*##**»*###»*#**#***»**»##»»##***####»##*»##♦######**»♦»♦#«*#*♦»* 

1.5.1.1.0.0 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ENTITY  SCHEMA  OUTPUT 

LISTED  BELOW  ARE  THE  CHOICES  FOR  HOW  ' 
YOU  CAN  HAVE  THE  SCHEMA  FOR  RELATION 
USER  DISPLAYED. 

1)  SCREEN  OUTPUT 

2)  PRINTER  OUTPUT 

3)  RETURN  TO  PREVIOUS  MENU 
ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  _ 

********************************************************************* 

Figure  4.36   Output  Selection  Panel 
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maintains.      Not   all   of   the   IRDS   standard   relationships   are   im- 
plemented  in   this   version   of    the    IRDS   prototype    (See   Appendix  A   for   a 


Structure  for  database  :  C:USER.dbf 
Number  of  data  records  :  7 

Date  of  last  update        :  88/86/85 


Field      Field  name      Type 


USER 
ACC  NAME 


3      ID  NAME 


Logical 
Character 
Character 
Character 


4  DESCRIPT 

5  DATE  ADDED  Date 

6  ADDED  BY  Character 

7  COMMENTS  Character 

8  LST  MOD  DT  Date 

?  LST"ttOD"BY  Character 

18  NUrTOF  ROD  Numeric 


Width 

1 

IB 

28 

188 

8 
28 
58 

8 
28 

3 


Dec 


Figure  4.37   Sample  Schema  Output 

list  of  the  allowable  relationships) .   The  remainder  of  the  relationships 
will  be  reserved  for  implementation  in'  subsequent  versions  of  the  proto- 
type.  The  prototype  uses  a  keyword  selection  process  to  generate  a  query 
of  the  form  SUBJECT-VERB-OBJECT  and  a  query  processor  to  process  the 
query  and  generate  the  resulting  output.   When  the  user  selects  the 
query  option  from  the  main  menu  (Figure  4.10),  the  system  executes  the 
query  module  and  present  a  panel  (See  Figure  4.38)  requesting  that  the 
user  choice  which  entity-type  is  to  be  the  subject  of  the  query.   The 
system  then  requires  the  user  to  enter  the  ACCESS-NAME  of  the  entity 
to  be  queried  and  select  whether  entries  are  to  be  verified  before 
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***#«**«♦»»*♦♦ ****«***♦**«*♦*♦♦******* SUM*********************** ****♦♦ 

1.3.8.8.8.0 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

QUERY  MENU 

RELATIONSHIP 


ENTITY-1 


1) 

USER 

2) 

SYSTEM 

3) 

PROGRAM 

4) 

DOCUMENT 

5) 

FILE 

6) 

RECORD 

7) 

ELEMENT 

9) 

RETURN  TO  PREVIOUS  MENU 

18) 

RETURN  TO  MAIN  MENU 

ENTITY-2 


ENTER  YOUR  CHOICE  (1-18)  FROM  ABOME:  1 

DO  YOU  WISH  TO  VERIFY  YOUR  ENTRIES  Y  or  N    N 

* 


Figure  4.38   Query  Entity-Type  Selection  Menu 
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*********************************************************************** 

*  * 
#13  8  8  8  8  * 

*  ■"  INFORMATION  RESOURCE  DICTIONARY  SYSTEM                             * 

*  * 

*  QUERY  MENU  * 

*  * 

*  USER  RELATIONSHIP                          ENTITY-2                 * 

*  * 

*  ENTER  THE  ACCESS-NAME  FOR  THE   USER  * 

*  YOU  WISH  TO  QUERY  ON  PRESS  RETURN  PAY-DEPT             * 

*  » 

*  * 

*  IS  THIS  THE  ENTITY  YOU  WISH  TO  QUERY  ON   PAY-DEPT  Y  OR  N  * 

*  » 


Figure  4.39   Entity-1  Selection  Menu 


********************************************* ******************t****** 
» 

*  i    '-i    I    fl   R   R 

*  '  INFORMATION  RESOURCE  DICTIONARY  SYSTEM 
* 

*  QUERY  MENU 
* 

*  PAY-DEPT  RELATIONSHIP  ENTITY-2 
* 

*  1)       CONTAINS 

*  2)   IS  RESPONSIBLE  FOR 

*  3)   RETURN  TO  PREVIOUS  MENU 

*  ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  2 
» 

* 

* 

******************************************************** * ****** ******** 


Figure  4.40   Relationship  Selection  Menu 
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being  accepted  by  the  system  (Figure  4.39).   The  system  next  prompts 
the  user  for  the  relationship- type  that  is  the  verb  of  the  query. 
Finally  the  system  request  the  entity-type  which  acts  as  the  object 
to  form  the  query  (Figures  4.40  and  4.41).   When  the  final  form  of  the 


«mHHHH«Hfl»HHIHimttlHH»HI*HHilt»HttHHHt*HJHHH 

1.3.1.1.6.8 


INFORMATION  RESOURCE  DICTIONARY  SYSTEM 
QUERY  MENU 
PAY-DEPT  RELATIONSHIP 


ENTITY-2 

1)  SYSTEM 

2)  RETURN  TO  PREVIOUS 


ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  1 


*»*»*«»»«»»»H»****»**t»»»M»»M»»»*»**»»»*ff»»»ft»tt»«ft»**«»»»»«)e»**««« 


Figure  4.41   Entity-2  Selection  Menu 

query  has  been  specified  the  system  process  the  query,  requests  the 
selection  of  an  output  medium  for  the  query  results,  and  then  generates 
the  output  (See  Figure  4.42  thru  4.43). 
H.   SCHEMA  MAINTENANCE 

Even  though  the  Core  IRDS  Standard  Schema  limits  entity  and  re- 
lationship meta-data  (See  Appendix  A),  it  allows  for  extensibility  in 
that  additional  attributes  may  be  added  by  the  user.   The  schema  main- 
tenance facility  of  the  IRDS  prototype  allows  an  authorized  (authorization 
is  determined  through  the  security  function)  user  to  add  new  attributes 
and  modify  or  delete  existing  ones.   Note:   That  although  the  prototype 
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********************************************************************* 

12  11  8.8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ENTITY  OUTPUT 

LISTED  BELOW  ARE  THE  CHOICES  FOR  HOW 
YOU  CAN  HAVE  THE  QUERY 

PAY-DEFT        RESPONSIBLE  FOR         SYSTEM 

1)  SCREEN  OUTPUT 

2)  PRINTER  OUTPUT 

3)  RETURN  TO  PREVIOUS  MENU 
ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  _ 

********************************************************************* 

Figure  4.42   Output  Selection  Panel 


********************************************************************** 

1.3. 9.1.8. 8  * 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM  ♦ 

* 
QUERY  RESULTS  FOR  * 

-ft 
PAY-DEPT    RESPONSIBLE  FOR    SYSTEM  * 

IDENTIFICATION  NAME:      SALARY  PAYROLL  * 

* 

DESCRIPTION:   This  system  is  used  to  produce  the  monthly  sal-  * 
sried  payroll  for  the  company.  * 

» 

IDENTIFICATION  NAME:      WEEKLY  PAYROLL  * 

* 

DESCRIPTION:   This  system  is  used  to  produce  the  weekly  pay-   * 
roll  for  the  company.  * 

ftft»ftftftftft»ft*ftftftft»»ftftftftftft«ftftftftftftft«ftftftftft«ftftft»*ftftftft«»ft«ftftft*«ftftftftftftftftftftft»ft» 


Figure  4.43  Query  Result  Panel 
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allows  for  the  addition  of  entity  and  relationship  relations 
the  panel  structure  would  require  modification  to  make  full  use  of  any 
relations  that  were  added.   When  the  user  selects  the  schema  maintenance 
option  from  the  main  menu  (See  Figure  4.10),  the  system  activates  the 
schema  maintenance  module  and  displays  a  panel  requesting  that  the  user 
choose  which  type  of  schema  is  to  be  modified  (Figure  4.44). 


«IHHHHHIHHH(HHHHH«HHHIHH)i»H«»l«HMHHHH«««H 

1.4.8.8.8.8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

SCHEMA  MAINTENANCE  MENU 

1)  ADD,  MODIFY  OR  DELETE  ENTITY  SCHEMA 

2)  ADD,  MODIFY  OR  DELETE  RELATIONSHIP  SCHEMA 
ENTER  YOUR  CHOICE  U-3)  FROM  ABOVE:  1 


»M*0****»»»M»»i**0**«*«*»*»ft*»*»*»*»*»**»*»»»***»***»*****#***** 


Figure  4.44   Schema  Maintenance  Selection  Panel 

The  user  will  then  be  allowed  to  identify  particular  entity  or  relation- 
ship type  and  perform  maintenance.   The  following  sections  describe  how 
the  IRDS  prototype  performs  the  schema  maintenance  functions  of  the  IRDS 
prototype. 

1.   Entity  Meta-data 

When  the  authorized  user  indicates  that  he  desires  to  add,  modify 
or  delete  meta-data  associated  with  the  entity-type  scema,  the  system 
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presents  a  panel  requesting  that  the  user  choose  which  entity  he  desires 
to  maintain  (Figure  4.45). 


1 •4.1 .8.0.8 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ADD,  MODIFY  OR  DELETE  ENTITY  SCHEMA 

1)  USER  6)  FILE 

2)  SYSTEM  7)  RECORDS 

3)  PROGRAM  8)  ELEMENT 

4)  MODULE  9)  RETURN  TO  PREVIOUS  MENU 

5)  DOCUMENT  IB)  RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  (1-18)  FROM  ABOVE:  8 


Figure   4.45      Delete   Entity   Schema  Maintenance   Panel 

a.      Adding,    Modifying    or   Deleting    Entity   Meta-data 

After   the    user    identifies   which   entity-type    is    to   be   main- 
tained,   the   system   retrieves    the   schema   structure,    displays    it,    and   al- 
lows   the   authorized   user   to   perform   the   desired  maintenance    (See    Figure 
4.46)  . 

2 .       Relationship   Meta-data 

When    the   authorized   user    indicates    that   he    desires    to   add,    modify, 
or   delete   meta-data   associated  with   the   entity-type   schema,    the   system 
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presents  a  panel  requesting  that  the  user  choose  which  entity  he  desires 
to  maintain  (Figure  4.47). 

a.   Adding,  Modifying  or  Deleting  Relationship 

After  the  user  has  identified  which  relationship-type  is  to 


***«»*ft*»«****«»**»»*««»*»*»**tt»X«*»«»M*ft««»*»«ft*»H«»«ft«»t*«»»*«*« 


CrUSER.dbf 


Bytes  remaining   3766 
Fields  defined     18 


Field  name  Type     Width  Dec 


USER     Logical 
ACC  NAME   Character 


1 

18 
ID  NAME  Character  28 
DE5CRIPT  Character  188 
DATE  ADDED  Date  8 

ADDED  BY      Character        28 
COrttERTS      Character        58 

8  LST  MOD  DT  Date  8 

9  LST~M0D~BY  Character        28 
18      NUrTOF  ROD  Numeric  3 


Names  start  with  letter;  the  remainder  may  be  letters,  digits  or 

underscore 

DEPRESS  Fl  FOR  INSTRUCTIONS 


Figure    4.46      Entity    Schema  Maintenance   Panel 

maintained,    the    system    retrieves    the    schema    structure,    displays    it,    and 
allows    the    authorized   user    to   perform    the    desired  maintenance    (Figure 
4.48)  . 
I.       FINAL   COMMENTS 

Although    this    prototype    IRDS    does    not   possess    all    of    the    features 
that  were   described   in   Chapter    3,    it   does    demonstrate    that   a   relational 
DBMS-dependent    implementaion   of    the    NBS    IRDS    is    feasible    as   demonstrated 
by   the   prototype.      The   extensibility    feature   described    in    the   standard 
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********************************************************************* 

1  4  2.6  0  B 

INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

ADD,  MODIFY  OR  DELETE  RELATIONSHIP  SCHEMA 

1)  USER  CONTAINS  SYSTEM      8)  FILE  CONTAINS  RECORDS 

2)  SYSTEM  CONTAINS  PROGRAM   9)  RECORD  CONTAINS  ELEMENT 

3)  PROGRAM  PROCESSES  FILE    10)  USER  RESPONSIBLE  FOR  SYSTEM 

4)  PROGRAM  PROCESSES  RECORD  11)  USER  RESPONSIBLE  FOR  FILE 

5)  PROGRAM  PROCESSES  ELEMENT  12)  PROGRAM  PRODUCES  DOCUMENT 

6)  SYSTEM  CONTAINS  PROGRAM   13)  RETURN  TO  PREVIOUS  MENU 

7)  PROGRAM  CONTAINS  MODULE   14)  RETURN  TO  MAIN  MENU 
ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE: 

*♦♦♦*♦♦**♦*»«♦*♦#*»*♦*§*♦*********»»♦<*«*♦***♦**«****«*♦♦****♦♦*♦*♦♦♦ 

Figure  4.47   Relationship  Selection  Panel 


********************************************************************** 

* 
* 

C:USER.dbf  * 

Bytes  remaining   3760  * 
Fields  defined     10  * 

* 

Field  name  Type     Width  Dec  * 

* 

1  U  NAME  Character        10  * 

2  SHAME         Character        10  * 

» 

* 
» 

* 
» 

Names  start  with  letter;  the  remainder  may  be  letters,  digits  or      * 
underscore  "  * 

DEPRESS  Fl  FOR  INSTRUCTIONS  * 


Figure    4.48      Relationship   Schema   Maintenance    Panel 
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is  enhanced  because  of  the  inherent  flexibility  of  the  relational 
environment.   Finally  the  NBS  standards  provide  a  firm  foundation  from 
which  to  consider  dictionary  system  implementation. 
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V.   CONCLUSION 

This  thesis  has  discussed  and  evaluated  the  value  of  data  as  a 
corporate  asset  and  how  Data  Base  Management  Systems  (DBMS)  can  be 
used  to  manipulate  this  corporate  asset.   It  has  described  how  the  concern 
over  corporate  data  has  led  to  the  development  and  increased  use  of 
Relational  Data  Bases  and  in  particular  Data  Dictionaries  (DD) .   Desirable 
DBMS  and  DD  characteristics,  capabilities  and  features  were  identified 
and  discussed.   Two  existing  relational  DBMS  were  evaluated  concerning 
the  data  dictionary  features  they  provided.   The  result  of  that  evaluation 
was  that  relational  systems  lack  a  majority  of  those  dictionary  features 
deemed  necessary  and  desirable.   Further,  all  existing  DD  products  were 
developed. 

This  thesis  then  presented,  described  and  discussed  the  National 
Bureau  of  Standards  (NBS)  Information  Resource  Dictionary  System  (IRDS) 
standard.   The  standard  provides  a  synthesis  of  baseline  features,  capa- 
bilities and  functions  found  in  existing  DD  systems  plus  the  additional 
capabilities  of  being  able  to  handle  all  three  major  types  of  data  base 
organization:   hierarchical,  network  and  relational.   Of  equal  signifi- 
cance, it  offers  the  flexibility  for  user  to  expand  the  dictionary  schema 
to  accomodate  unique  requirements . 

This  thesis  developed  a  relational  model  of  the  NBS  IRDS  which  was 
implemented  as  a  prototype  using  a  personal  computer  and  dBase  III.   The 
prototype  demonstrates  that  the  features  presented  as  part  of  the  NBS  IRDS 
are  implementable  and  usable  in  a  relational  environment. 
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It  is  recommended  that  the  IRDS  prototype  undergo  additional  develop- 
ment with  the  goal  of  implementing  an  operational  production  version  of  the 
NBS  IRDS  standard. 
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APPENDIX  A 
CORE  STANDARD  SCHEMA 


This  appendix  describes  the  Core  System-Standard  Schema 
and  its  structural  characteristics.   The  Core 
System-Standard  Schema  is  defined  as  that  specific  set  of 
entity-types,  relations-types,  attribute-types,  and  other 
schema  descriptors  supported  by  the  Core  Standard  I RDS . 
While  this  Core  System-Standard  Schema  satisfies  the 
requirements  of  many  I RDS  environments,  an  organization  can 
customize  its  I RDS  Schema  using  the  Schema  Extensibility 
Facility  discussed  in  previous  chapters. 


A . 1   ATT  R I B UT  E -T Y  P  E  S  AN  D  ENT I T Y -TYPES 

In  this  section,  the  at tr i bu te- types  and 
attribute-group-types  associated  with  each  entity-type  are 
given.   The  following  are  the  entity-types  in  the  Core 
System-Standard  Schema: 


* 

USER 

* 

SYSTEM 

# 

PROGRAM 

*■ 

MODULE 

* 

FILE 

* 

DOCUMENT 

<£ 

RECORD 

<* 

ELEMENT 

* 

BIT-STRING 

* 

CHARACTER-STRING 

♦ 

FIXED-POINT 

* 

FLOAT 

The  other  entity-types  found  in  the  Core  System-Standard 
Schema  are : 

*  DICTIONARY-USER,  in  support  of  the  Security  Facility. 

*  UIEl'J  which  supports  the  Secutity  and  View  Facilities. 

The  following  two  tables  present  the  attributes-types 
and  at tr i bu te -group- types  accociated  with  the  non-secu t i ry 
related  entity- types  listed  above.   At tr i bu te -group- types 
can  be  identified  by  the  existence  of  their  component 
at  tr  i  bu  te-  types  ,  which  are  indented  and  i  mrned  i  atedly  follow 
the  at tr i bu te -group -type  name.   At  the  intersection  of  a  row 
and  column,  the  following  denote  that  an  entity  of  the  given 
type  : 

S    Can  have  no  more  than  a  single  attribute  of  the 
given  type . 
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P    Can  have  multiple  attributes  o-f  the  given  type. 

The  -first  table  shows  the  attribute-types  accociated 
with  the  following  entity-types: 

*  USER   (USR) 

*  SYSTEM   (SYS) 

*  PROGRAM   (PGM) 

*  MODULE   (MDL) 

*  FILE   (FID 

*  DOCUMNET   (DOC) 

*  RECORD   (REC) 

*  ELEMENT   (ELE) 

( ATT  R I BUTE-GROUP -TY P E )  ENT I TY -T Y  P E 

AND  

ATTRIBUTE-TYPE  USR  SYS  PGM  MDL  FIL  DOC  REC  ELE 


ADDED-BY  S    S    S    S    S    S    S    S 

(ALLOWABLE-RANGE)  P 

LOW-OF-RANGE 
HIGH-OF-RANGE 

ALLOWABLE-VALUE  P 

CLASSIFICATION  PPPPPPPP 

CODE-LIST-LOCATION  P 

COMMENTS  S    S    S    S    S    S    S    S 

DATA -CLASS  S 

DATE-ADDED  SSSSSSSS 

DESCRIPTION  S         S         S         S         S         S         S         S 

DOCUMENT -CATEGORY  S 

(DURATION)  S         S         3 

DURATION-UALUE 
DURATION-TYPE 

(IDENTIFICATION-NAME)  PPPPPPPP 

ALTERNATE-NAME 
A  LT  E  RN  AT  E  -NAM  E  -  C  ONT  EXT 

LAST -MOD IF I  CAT  ION-DATE  SSSSSSSS 

LAST-MODIFIED-BY  SSSSSSSS 
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LOCATION 

NUMBER-OF-LINES-OF-CODE 
NUMBER-OF-MOD I F I  CAT I ONS 
NUMBER-OF-RECORDS 
RECORD-CATEGORY 
SECURITY- 
SYSTEM 


P 

S 
3 


P 
S 
S 


s 
s 


s   s   s   s   s 
s 


s 

3    S 


A. 2   RELATIONSHIP-CLASS-TYPES  AND  RTELATONSHI P-TYPES 


Th  i  s  sec  t 
pel  at  i  onsh  i  p- 

rel at  i onsh  i  p- 
bol d  print  as 
they  appl y. 
of  the  member 
abbrev i  a ted  i 
re  1  at  i  onsh  i  p- 
i  n verse -name 
Where  no  re  1  a 
re  1  at  i  onsh  i  p- 
i  n verse -name 


i  on  pre 
types  i 
class-t 

header 
The  i  nv 

e  n  t  i  t  y 
n verse - 
cl ass-t 
■for  eac 
t  i  onsh  i 
type,  i 
are  g  i  v 


sen  ts 
n  the 
ypes, 
s  to 
erse- 
-tyup 
name 
ype  , 
h  rel 
p-c  1  a 
ts  in 
en  di 


(attribute-group-type) 
and 
attri bute-type 


the  rel 
Core  Sy 
where  t 
the  re  1  a 
name  <wh 
es  i  n  re 
are  give 
so  the  i 
at  i  onsh  i 
ss-type 
verse-na 
rectly. 


at  i  onsh  i  p-c 1 ass-t 
stem-Standard  Sch 
hey  ex  i  st ,  are  pr 
t  i  on sh  i  p - 1 yp e s  to 
i  ch  al ows  the  spe 
verse  order)  and 
n  -for  each 
nverse-name  and  a 
p-type  may  be  i  nt 
app 1  i  es  to  a  par  t 
me  and  abbreviate 


ype 

em  a 

ov  i 

wh 

c  i  t 


bbr 
err 
i  cu 

d 


s  and 
.   The 
ded  i  n 
i  ch 
i  cat i  on 


e  v  i  a  r  e  d 
ed. 
1  ar 


ABBREVIATE 


ABBREVIATED 
INVERSE-NAME   INVERSE-NAME 


CONTAINS 

SYSTEM-CCNTAINS-SYSTEM 

SYSTEM-CONTAINS-PROGRAM 

SYSTEM-CONTAINS-MODULE 

PROGRAM-CONTAINS-PROGRAM 

PROGRAM-CONTAINS-MODULE 

MODULE-CONTAINS-MODULE 

FILE-CONTAINS-FILE 

FILE-CONTAINS-DOCUMENT 

FILE-CONTAINS-RECORD 

FILE-CONTAINS-ELEMENT 

OOCUMENT-CONTAINS-OOCUMENT 

DOCUMENT-CONTAINS-RECORD 

DOCUMENT-CONTAINS-ELEMENT 

RECORD-CONTAINS-RECORD 

RECORD-CCNTAINS-ELEMENT 


CON 

SYS-CON-SYS 
SYS-CON-PGM 
SYS-CON-MDL 
PGM-CON-PGM 
PGM-CON-MDL 
MDL-CON-MDL 
FIL-CON-FIL 
FIL-C0N-00C 
FIL-CON-REC 
FIL-CON-ELE 
DOC-CON-DOC 
DOC-CON-REC 
DOC-CON-ELE 
REC-CON-REC 
REC-CON-ELE 


CONTAINED-IN 


CON-IN 
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ELEMENT-CONTAINS-ELEMENT 


ELE-CON-ELE 


PROCESSES 

USER-PROCESSES-FILE 

USER-PROCESSES-DOCUMENT 

USER-PROCESSES-RECORD 

USER-PROCESSES-ELEMENT 

SYSTEM-PROCESSES-FILE 

SYSTEM-PROCESSES-DOCUMENT 

SYSTEM-PROCESSES-RECORD 

SYSTEM-PROCESSES-ELEMENT 

PROGR/H-PROCESSES-FILE 

PROGR/H-PROCESSES-DOCUMENT 

PROGfWI-PROCESSES-RECORD 

PROGRtfl-PROCESSES-ELEMENT 

MODULE-PROCESSES-FILE 

MODULE-PROCESSES-DOCUMENT 

MODULE-PROCESSES-RECORD 

MODULE-PROCESSES-ELEMENT 


PR 

USREC-PR-FILIL 

USR-PR-DOC 

USR-PR-REC 

USR-PR-ELE 

SYS-PR-FIL 

SYS-PR-DOC 

SYS-PR-REC 

SYS-PR-ELE 

PGM-PR-FIL 

PGM-PR-DOC 

P6M-PR-REC 

PGM-PR-ELE 

MDL-PR-FIL 

MDL-PR-DOC 

MDL-PR-REC 

MDL-PR-ELE 


PROCESSED-BY 


PR-BY 


RESPONSIBLE-FOR  R-FOR 

USER-RESPONSIBILE-FOR-SYSTEM  USR-R-FOR-SYS 

USER-RESPONSI BLE-FOR-PROGRM  USR-R-FOR-PGM 

USER-RESPONSI BLE-FOR-MODULE  USR-R-FOR-MDL 

USER-RESPONSI BLE-FOR-RECORD  USR-R-FOR-REC 

USER-RESPONSI BLE-FOR-DOCUMENT  USR-R-FOR-DOC 

USER-RESPONSI BLE-FOR-RECORD  USR-R-FOR-REC 

USER-RESPONSI BLE-FOR-ELEMENT  USR-R-FOR-ELE 


RESPONSIBILITY-OF 


R-OF 


RUNS 

USER-RUNS-SYSTEM 

USER-RUNS-PROGRtfl 

USER-RUNS-MODULE 


RUNS 

USR-RUN-SYS 
USR-RUN-PGM 
USR-RUNS-MDL 


RUN-BY 


RUN-BY 


GOES-TO 

SYSTEM-GOES-TO-SYSTEM 
PROGR#1-GOES-TO-PROGR#1 
MODULE-GOES-TO-+10DULE 


TO 

SYS-TO-SYS 
PGM-TO-PGM 
MDL-TO-MDL 


COMES-FROM 


FR 


DERIVED-FROM  D-FR 

DOCUMENT-DERIVED-FROM-FILE  DOC-D-FR-FIL 

DOCUMENT-DERIVED-FROM-DOCUMENT  DOC-D-FR-DOC 

DOCUMENT-DER I VED-FROM-RECORD  DOC-D-FR-REC 

ELEMENT-DERI VED-FROM-FILE  ELE-D-FR-FIL 

ELEMENT -DERIVED-FROM-DOCUMENT  ELE-D-FR-DOC 

ELEMENT-DERIUED-FROM-RECORD  ELE-D-FR-REC 

ELEMENT-DERIVED-FROM-ELEMENT  ELE-D-FR-ELE 

FI LE-DERI VED-FROM-DOCUMENT  FI L-D-FR-DOC 

FILE-DERIVED-FROM-FILE  FIL-D-FR-FIL 

RECORD-DERIVED-FROM-DOCUMENT  REC-D-FR-DOC 

RECORD-DERI VED-FROM-FILE  REC-D-FR-FIL 


PRODUCES 


PRD 
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RECORD-DERIVED-FROM-RECORD 

REC-D-FR-REC 

CALLS 

CLS 

CALLED-BY 

PROGRAM-CALLS-PROGRAM 

PGM-CLS-PGM 

PROGRAM-CALLS-MODULE 

PGM-CLS-MDL 

MODULE-CALLS-MODULE 

MDL-CLS-MDL 

REPRESENTED-AS 

AS 

REPRESENTS 

ELEMENT-REPRESENTED-AS 

ELE-AS-BIT 

-BIT-STRING 

ELEMENT-REPRESENTED-AS 

ELE-AS-CHR 

-CMRACTER-STRING 

ELEMENT-REPRESENTED-AS 

ELE-AS-FIX 

-FIXED-POINT 

ELEMENT-REPRESENTED-AS 

ELE-AS-FLO 

CLD-BY 


REP 


-FLOAT 


ELEMENT-STANDARD-FOR-ELEMENT  ELE-ST-FOR-ELE 

(Inverse  is:     ELEMENT-STANDARD-OF-ELEMENT 


ELE-ST-OF-ELE) 


F I LE-f^S-SORT-KEY -ELEMENT      FIL-H-S-K-ELE 
(Inverse  is:  ELEMENT-SORT-KEY-OF-FILE 


ELE-S-K-OF-FIL) 


FILE-MS-ACCESS-KEY-ELEMENT  FIL-H-A-K-ELE 

(Inverse  is:  ELEMENT-ACCESS-KEY-OF-FILE  ELE-A-K-OF-FIL) 


A. 3       ENTITY -TYPES   AND    RELATIONSHIP-TYPES 

The    following    two    tables    depict    the    en t i ty- types 
par  t  i  cu  1  at  i  ng    as   members    of    the    non-security    related 
relationship-types    in    the    Core    System-Standard    Schema. 
■following    notation     in    to    denote    that    the    entity- type     is: 

1  The    -first    member    o-f    the    relationship-type. 

2  The    second   member    o-f    the    relationship-type. 

R      Both    the    first    and    second   member    of    the 
r e  1  at  i  on sh  i  p - 1 y p e 

The    first    table    shows    the    re  1  at i onsh i p- types 
associated   with    the    following    entity-types: 

*  USER 

*  SYSTEM 

*  PROGRAM 

*  MODULE 

*  FILE 

*  DOCUMENT 

*  RECORD 

*  ELEMENT 


The 
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RELATI ONSHI P-CLASS-TYPE 
AND 
RELATIONSHIP-TYPE 


USR  SYS  PGM  MDL  FIL  DOC  REC  ELE 


CONTAINS 

SYSTEM-CONTAINS-SYSTEM 

SYSTEM-CONTAINS-PROGRAM 

SYSTEM-CONTAINS-MODULE 

PROGRAM-CONTAINS-PROGRAM 

PROGRAM-CONTAINS-MODULE 

MODULE-CONTAINS-MODULE 

FILE-CCNTAINS-FILE 

FILE-CONTAINS-DOCUMENT 

FILE-CONTAINS-RECORD 

FILE-CONTAINS-ELEMENT 

DOCUMENT-CONTAINS-DOCLMENT 

DOCUMENT-CONTAINS-RECORD 

DOCUMENT-CONTAINS-ELEMENT 

RECORD-CONTAINS-RECORD 

RECORD-CONTAINS-ELEMENT 

ELEMENT-CONTAINS-ELEMENT 


PROCESSES 

USER-PROCESSES-FILE 

USER-PROCESSES-DOCUMENT 

USER-PROCESSES-RECORD 

USER-PROCESSES-ELEMENT 

SYSTEM-PROCESSES-FILE 

SYSTEM-PROCESSES-DOCUMENT 

SYSTEM-PROCESSES-RECORD 

SYSTEM-PROCESSES-ELEMENT 

PROGRAM-PROCESSES-FILE 

PROGRAM-PROCESSES-DOCUMENT 

MODULE-PROCESSES-RECORD 

PROGRAM-PROCESSES-ELEMENT 

MODULE-PROCESSES-FILE 

MODULE-PROCESSES-DOCUMENT 

MODULE-PROCESSES-RECORD 

MODULE-PROCESSES-ELEMENT 


RESPONSIBLE-FOR 

USER-RESPCNSI BI LE-FOR-SYSTEM 
USER-RESPONSI BLE-FOR-PROGRAM 
USER-RESPONSI BLE-FOR-MODULE 
USER-RESPONSI BLE-FOR-RECORD 
USER-RESPCNSI BLE-FOR-DOCUMENT 
USER-RESPCNSI BLE-FOR-RECORD 
USER-RESPONSI BLE-FOR-ELEMENT 
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RUNS 

USER-RUNS-SYSTEM 
USER-RUNS-PROGRAM 
USER-RUNS-MODULE 

GOES-TO 

SYSTEM-GOES-TO-SYSTEM 

PROGRAM-GOES-TO-PROGRAM 

MODULE-GOES-TO-MODULE 

DERIVED-FROM 

DOCUMENT-DERIVED-FROM-FI LE 

DOCUMENT-DERIVED-FROM-DOCUMENT 

DOCUMENT-DERIVED-FROM-RECORD 

ELEMENT-DERI VED-FROM-FI LE 

ELEMENT-DERIVED-FRCM-DOCIJMENT 

ELEMENT-DERIVED-FROM-RECORD 

ELEMENT-DERIVED-FROM-ELEMENT 

FI LE-DERI VED-FROM-DOCUMENT 

FILE-DERI VED-FROM-FI LE 

RECORD-DERIVED-FROM-DOCUMENT 

RECORD-DERIVED-FROM-FILE 

RECORD-DERIVED-FROM-RECORD 

CALLS 

PROGRAM-CALLS-PROGRAM 
PROGRAM-CALLS-MODULE 
MODULE-CALLS-MODULE 

ELEMENT-STANDARD-FOR-ELEMENT 

FILE-HAS-SORT-KEY-ELEMENT 

FI LE-HAS-ACCESS-KEY-ELEMENT 


1 


The  last  three  re  1  at i onsh i p- types  are  not  members  of  a 
relationship-class,  and  so  are  listed  separetl. 

The  second  table  shows  the  re  1  at i onsh i p- types 
associated  with  the  following  en t i ty- types: 

*  ELEMENT 

*  BIT-STRING 

*  CHARACTER-STRING 

*  FIXED-POINT 

*  FLOAT 

RELATIONSHIP-CLASS-TYPE 
AND 
RELATIONSHIP-TYPE  ELE    BIT    CHR    FIX    FLO 
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REPRESENTED-AS 

ELEMENT-REPRESENTED-AS-BIT-STRING  1 

ELEMENT-REPRESENTED-AS-CMRACTER-STRING  1 

ELEMENT-REPRESENTED-AS-FIXED-POINT  '  1 

ELEMENT-REPRESENTED-AS-FLOAT  1 


A.  4   ATTRIBUTE-TYPES  AND  RELATIONSHIP-TYPES 

The  -following  are  the  attribute-types  assicociated  with 
the  re  1  at i onsh i p-c 1  ass- types  and  relationship-types  in  the 
Core  System-Standard  Schema: 

*   The  re  1  at i onsh i p- types 

-  SYSTEM-PROCESSES-FILE 

-  PROGRAM-PROCESSES-FILE 

-  MODULE-PROCESSES-FILE 

have  the  single-valued  attribute-type  ACCESS-METHOD 
associated  with  them. 


All  PROCESSES  and  RUNS  relationship-type- 
single -valued  at tr i bu te-typw  FREQUENC" 
with  them . 


*  The  r- e 1  a t  i  on sh  i  p - 1 y p e  RECORDS-CONTA I NS-ELEMENT  h as  t h e 

s  i  n g 1 e -v a 1 u e  d  a  1 1  r  i  bu  t  e - 1 y p e  RELAT I UE-POS I T I  ON 
associated  with  it. 

*  The  relationship- type  ELEMENT-REPRESENTED-AS-BIT- 

STR I NG  has  the  single-valued  at  tr  i  bu  t e- 1 yp  e  LENGTH 
and  the  multiple-valued  at tr i bu te-type  USAGE 
assoc  i  ated  the  i  t . 

*  The  relationship-type  ELEMENT-REPRESENTED-AS- 

CHARACTER-STRING  has  the  single-valued 
attribute-types  LENGTH  and  JUSTIFICATION  and  the 
multiple-valued  at tr i bu te-type  USAGE  associated  wit 
i  t  . 

*  The  re  1  at i onsh i p- types 

-  ELEMENT-REPRESENTED-AS-FIXED-POINT 

-  ELEMENT-REPRESENTED-AS-FLOAT 

have  the  single-valued  at tr i bute- types  LENGTH, 
PRECISION,  and  SCALE,  and  the  multiple-valued 
at tr i bu te-type  USAGE  associated  with  them. 


A. 5   SUPPORT  FOR  THE  CORE  SECURITY  FACILITY 

In  addition  to  the  entity-types  DICTIONARY-USER  and 
VIEW  the  Core  System-Standard  Schema  also  contains  the 
re  1  at i onsh i p- type  DI CTI ONARY-USER-HAS-VI EW ,  which  assiciates 
a  IRDS  user  with  the  views  he/she  may  use.   A  number  ot 
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attributes-types  and  attribute-group-types  in  the  Core 
System-Standard  schema  are  used  to  specify  the  categories  of 
permissions  that  can  be  assigned  to  a  I RDS  user  with  a 
part  i  cu 1 ar  view. 


A. 6      THE  ATTRIBUTE-TYPE-VALIDATION-PROCEDURE  META  ENTITIES 

The  Core  System-Standard  Schema  contains  the  following 
two  at tr i bu te-type-val i dat i on -procedure  me ta-en t i t i es : 

*  RANGE-VALIDATION,  used  to  restrict  the  attributes  of  a 

given  attribute-type  to  a  predefined  set  of  ranges. 

*  VALUE-VALIDATION,  used  to  restrict  the  attributes  of  a 

given  at tr i bu te-type  to  a  predefined  set  of  values. 

A. 7   THE  ATTRIBUTE-TYPE-VALIDATION-DATA  META-ENTITI ES 

There  are  no  attribute-type-validation-data 
me ta-en t i t i es  specified  in  the  Core  System-Standard  Schema. 
To  use  this  feature,  an  organization  must  define  and  add 
these  me ta-en t i t i es  to  the  schema. 


A.  8   THE  LIFE-CYCLE-PHASE  META-ENTITI ES 

The  Core  System-Standard  Schema  contains  four 
Life-Cycle-Phase  me ta-en t i t i es .   These  are: 

*  UNCONTROLLED-PHASE  -  Entities  are  in  this 

1  i fe-cyc 1 e -phase  when  they  are  added  to  the  I  RD . 

*  CONTROLLED-PHASE  -  Entities  used  in  an  operational 

environment,  for  which  structural  integrity  control 
are  provided  by  the  I RDS,  are  in  this 
1  i fe-cyc 1 e-phase . 

*  ARCHIVED-PHASE  -  This  life-cycle-phase  is  used  to 

document  those  entities  no  longer  in  use. 

*  SECURITY-PHASE  -  This  life-cycle-phase,  of  phase  class 

UNCONTROLLED  is  used  for  DICTIONARY-USER  entities 
associated  with  the  Security  Fac i 1  i ty  of  the  Core 
Standard  I RDS . 


A.?   THE  QUALITY- INDICATOR  META-INTITI ES 

The  Core  System-Standard  Schema  does  not  contain  an: 
pre-defined  QUALITY- INDICATOR  me ta-en t i t i es .   These 
me ta-en t i t i es  may  be  defined  by  an  organization. 


A . 1 @  THE  VAR I AT I ON-NAMES  META-ENT I T I ES 

There  are  also  no  pre-defined  VARIATION-NAMES 
me ta-en t i t i es  in  the  Core  System-Standard  Schema.   These 
me ta-en t i t i es  may  be  defined  by  an  organization. 
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A. 11  THE  SCHEMA-DEFAULTS  META-ENTITI ES 

There  is  one  SCHEMA-DEFAULTS  meta-entity  in  the  Core 
System-Standard  Schema.   This  meta-entity,  called 
EX I  STING-SCHEMA-DEFAULTS,  is  used  to  establish  minimum  and 
maximum  name  lengths  and  minimum  and  maximum  attribute 
lenaths  in  IRD. 
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APPENDIX  B 

COMMAND  SPECIFICATIONS 
SYNTAX : 

All  words  shown  in  captials  are  required. 
C  ]  =  Opt  i  onal 
<>  =  user  suppl i  ed 
{}  =  May  be  repeated  as  required 
1 .   Schema  Commands 

1.1   Schema  Maintenance 

*  Add  Meta-Entity  Command 

ADD  META-ENTITY  <Meta-ent i ty-name> 

META-ENTITY -TYPE  =  <Me ta-ent i ty-type> 
WITH  META-ATTRIBUTES 

[ (<Meta-attr i bute-name)  =  < Initial  value)}]; 

*  Modi-fy  Meta-Entity  Command 

MODIFY  META-ENTITY  <Meta-ent i ty-name> 
WITH  META-ATTRIBUTES 

<<Meta-attr i bute-name)  =  <new  value)); 

*  Delete  Meta-Entity  Command 

DELETE  META-ENTITY  <Me ta-ent i ty-name) ; 

*  Add  Me  ta-Rel  at  i  onsh  i  p  Comman'd 

ADD  META-RELATIONSHIP 

FROM  <Meta-ent i ty-name-1)  TO  <Meta-en t i ty-name-2) 
WITH  META-ATTRIBUTES 

[ {<Meta-attr i bute-name)  =  (value))]; 

*  Modi-fy  Me  ta-Rel  at  i  onsh  i  p  Command 

MODIFY  META-RELATIONSHIP 

FROM  <Meta-ent i ty-name-1 )  TO  <Meta-ent i ty-name-2) 

WITH  META-ATTRIBUTES 

<<Meta-attr i bute-name)  =  <value)) 

[ <Me ta-ent i ty-name-1 )  =  <Me ta-ent i ty-name)] 

[ <Meta-ent i ty-name-2)  =  <Meta-ent i ty-name)] 

[ {<Meta-attr i bute-name)  =  <New-val ue))] ; 

*  Delete  Meta-Rel at i onsh i p  Command 

DELETE  META-RELATIONSHIP 

FROM  <Meta-enti ty-name-1)  TO  <Meta-ent i ty-name-2) 
WITH  META-ATTRIBUTES 

[ {<Meta-attr i bute-name)  =  <value))]; 
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*  Replace  Meta-Rel at ionsh i p   Command 

REPLACE  META-RELAT IONSH IP 

FROM  <Meta-enti ty-name-1)  TO  <Meta-ent i ty-name-2> 
WITH  META-ATTRIBUTES 

[{<Meta-attribute-name-l>  =  <va1ue))] 
BY  FROM  <Meta-enti ty-name-l>  TO  <Meta-ent i ty-name-3) 
WITH  META-ATTRIBUTES 

[ <<Meta-attribute-name-2)  =  <va1ue>}]; 

*  Modi-fy  Meta-Entity  Name  Command 

MODIFY  META-ENTITY -NAME 

FROM  <Meta-ent i ty-name-1 >  TO  <Meta-ent i ty-name-2> ; 

*  Install  Meta-Entity  Command 

INSTALL  <Meta-enti ty-name>; 
1.2  Schema  Output  Command 

*  OUTPUT  SCHEMA 

SELECT  CALL]  or  C <meta-ent i ty-name-1 i st>3 

[WHERE  <restr i ct i on-expressi on)  boolean  operator 
<restriction-expression)] 

[<Title>] 

[  SHOW  ALL]  or 

[  SHOW  ALL  META-ATTRIBUTES  or 

<Meta-attr ibute-1 i st>]  and/or 
[  SHOW  ALL  META-RELATIONSHIPS  or 
<Meta-rel at  i  onsh  i  ps-1 i  st>]  and/or 
[ROUTE  TO  <Destination-l ist>3; 

2.   Dictionary  Commands 

2.1   Dictionary  Maintenance  Commands 

*  Add  Entity  Command 

ADD  ENTITY  <ent i ty-name> 

ENTITY -TYPE  =  <ent i ty-type> 
WITH  ATTRIBUTES 

[  {<attr  ibute-name>  =  -(Initial  value))]; 

*  Modi-fy   Entity   Command 

MODIFY  ENTITY  <ent i ty-name> 

[{<attr ibute-name)  =  <New  value)}]; 
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*  Delete  Entity  Command 

DELETE  ENTITY 

C <Ent i ty-name>]  op 

[USING  =  <Entity-l  ist-name>]  or 

[USING  PROCEDURE  =  <Procedure-name>]  or 

[SELECT  WHERE  <restr i ct i on-expressi on)  boolean 

operator  <restriction-expres=ion>3 ; 

*  Add  Relationship  Command 

ADD  RELATIONSHIP 

<Ent i ty-name-1 >  <Rel at ionsh ip-type>  <Ent i ty-name-2> 
WITH  ATTRIBUTES 

[ {<attr ibute-name)  =  <Initial  value)}]; 

*  Modify  Relationship  Command 

MODIFY  RELATIONSHIP 

<Ent i ty-name-1 >  <Rel at i onsh i p-type>  <En t i ty-name-2) 
[ {<attr i bute-name)  =  <New  value)}]; 

*  Delete  Relationship  Command 

MODIFY  RELATIONSHIP 

[  <Ent  i  ty-name-1 )    <Rel  at  i  onsh  i  p-type)    <Ent  i  ty-narne-2>] 
[ <Rel at  i  onsh  i  p-1  i  st-name)3  ; 

*  Modi-fy  Access-Name  Command 

MODIFY  ACCESS-NAME 
• <Current  access-name)  TO  <New  access-name); 

*  Modi-fy  Descriptive-Name  Command 

MODIFY  DESCRIPTIVE-NAME 

<Current  descriptive-name)  TO  <New  descriptive-name); 

*  Modi-fy  Entity  Li -fe-Cycl  e-Phase  Command 

MODIFY  ENTITY  LIFE-CYCLE-PHASE 

FOR  <Ent i ty-name)  or  <Ent i ty-1  i st-name) 
FROM  <Current  1  i -fe-cycl  e-phase)  TO  <New  li-fe-cycle- 
phase) ; 

*  Copy  Entity  Command 

COPY  ENTITY  <Ent i ty-name) 
[WITH  RELATIONSHIPS] 
TO  <New  entity-name) 

[DESCRIPTIVE-NAME  =  <Descr i pt i ve-name)] 
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[QUALITY  =  <Qual i ty-i ndi cator>] ; 
2.2  Dictionary  Output  Commands 

*  General  Output  Command 

OUTPUT  DICTIONARY 
[USING  VIEW  =  ALL3 

[USING  VIEW  =  <view-name>  or  <'jj  ew-name-1  i  st)] 
SELECT  [ALL]  or 
[ENTITIES] 

<restriction-expression) 
<boolean  operator) 
<restriction-expression) 
[SORT  SEQUENCE  =  <sor  t-parrn-1  i  st  >3 
SHOW  <show-opt i ons) 
[SHOW  <Ti tie) 

[ROUTE  TO  <destination-l ist>] 
[PROCEDURE-NAME  =  <procedure-name) ; 

*  Output  Impact-o-f-Change  Command 

OUTPUT  IMPACT 

[USING  VIEW  =  ALL] 

[USING  VIEW  =  <view-name)  or  <v i ew-name-1 i st)] 
SELECT  [ALL]  or 
[ENTITIES] 

{restrict  ion -express ion > 
<boolean  operator) 
<restr i ct i on-expressi on) 
[SORT  SEQUENCE  =  <sort-parm-l  i st)] 
SHOW  < show-opt i ons) 
[SHOW  <Ti tie) 
[SHOW  LIFE-CYCLE-PHASE] 
[SHOW  QUALITY-INDICATOR] 
[SHOW  ATTRIBUTES  [ALL]  or  [NO]  or 

[ <attr  i  bute-name)] ] 
[SHOW  DESCRIPTIVE-NAME] 
[ROUTE  TO  <destination-1  ist>] 
[PROCEDURE-NAME  =  <procedure-name)3 ; 

*  Output  Syntax  Commands 

OUTPUT  SYNTAX 

[USING  VIEW  =  ALL] 

[USING  VIEW  =  <view-name)  or  <v i ew-name-1 ist> 3 
SELECT  [ALL]  or 
[ENTITIES] 

<restr  ict ion-expression) 
<boo1ean  operator) 
<restr  i  ct  i  on-express i  on) 
[SORT  SEQUENCE  =  <sort-parm-l  i st>] 
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SHOW   <show-opt ions) 

[SHOW  <Title>] 

[SHOW  LIFE-CYCLE-PHASE] 

[SHOW  QUALITY-INDICATOR] 

[SHOW  RELATIONSHIP  <rel at i onsh i p-di spl ay-opt i ons)] 

[SHOW  RELATIONSHIP  SYNTAX  FOR  EACH  <ent i ty-name)] 
[ROUTE  TO  <destination-l  ist)] 
[PROCEDURE-NAME  =  <procedure-name>] ; 

2.3  Dictionary  Entity-List  Commands 

*  Build  Entity-List  Command 

BUILD  ENTITY-LIST 
SELECT  [ALL]  or 
[ENTITIES] 

<restr  i  ct  i  on -express i  on) 

<boolean  operator) 

<restriction-expression) 
[LIST-NAME  =  <entity-l  ist-name)] 
[USING  VIEW  =  ALL] 

[USING  VIEW  =  <view-name)  or  <v iew-name-1 ist>] 
[PROCEDURE-NAME  =  <procedure-name)] 
[PROCEDURE-DESCRIPTION  =  <short-str i ng-1 i teral )] ; 

*  Entity-List  Union  Command 

UNION 

<existing  entity-list-name), 
(<existing  entity-list-name)} 
=  <new  entity-list-name); 

*  Entity-List  Intersection  Command 

INTERSECTION 

<existing  entity-list-name), 
<<existing  entity-list-name)} 
=  <new  entity-list-name); 

*  Entity-List  Di-f-ference  Command 

DIFFERENCE 

<ent  i  ty-1 i  st-1-name) , <ent  i  ty-1 i  st-2-name) 
=  <new  entity-list-name); 

*  Entity-List  Subtraction  Command 

SUBTRACTION 

<ent  i  ty-1 ist-1-name) , <ent i  ty-1  i  st-2-name) 
=  <new  entity-list-name); 
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*  Name  Current  Entity-List  Command 

NAME  CURRENT  ENTITY-LIST  <ent i ty-1 i st-name> ; 

*  Output  Entity-List  Command 

OUTPUT  ENTITY-LIST 

[ LI  ST -NAME  =  <enti ty-1  ist-name>] 

[SHOW  <Title>] 

[ROUTE  TO  <destination-1 ist>] ; 

*  Output  Entity-List  Names  Command 

OUTPUT  ENTITY-LIST  NAME 
[ SHOW  <T  i  1 1 e  >  ] 
[ROUTE  TO  <destination-l  ist>]; 

2.4  Dictionary  Procedure  Commands 

*  Output  Procedure  Syntax  command 

OUTPUT  PROCEDURE  SYNTAX 
ALL  or  <procedure-name> 
[ SHOW  <T  i  1 1 e  >  ] 
[ROUTE  TO  <desti nation-list)]; 

*  Output  Procedure  Names  Command 

OUTPUT  PROCEDURE-NAME 

[SHOW  PROCEDURE-DESCRIPTION] 
[ROUTE  TO  <destination-l ist>]; 

*  Run  Output  Procedure  Command 

RUN  OUTPUT  PROCEDURE  <procedure-name> 
[USING  VIEW  =  ALL] 

[USING  VIEW  =  <view-name>  or  <v i ew-name-1 ist>] 
[ROUTE  TO  <destination-l  ist>]  ; 

*  Run  Entity-List  Procedure  Command 

RUN  ENTITY-LIST  PROCEDURE  <procedure-name> 
[LIST -NAME  =  <entity-l ist-name>] 
[USING  VIEW  =  ALL] 
[USING  VIEW  =  < view-name)  or  <v i ew-name-1  i st>]  ; 

*  Save  Output  Procedure  Command 

SAVE  OUTPUT  PROCEDURE 

PROCEDURE-NAME  =  <procedure-name> 
[PROCEDURE-DESCRIPTION  =  <short-str i ng-1 i teral >]  ; 
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*  Save  Entity-List  Procedure  Command 

SAVE  ENTITY-LIST  PROCEDURE 

PROCEDURE-NAME  =  <procedure-name> 
[PROCEDURE-DESCRIPTION  =  <short-str i nq-1  i teral >] ; 

*  Delete  Procedure  Command 

DELETE  <procedure-type>  PROCEDURE  <procedure-name> ; 
3.    General  Commands 

3.1   1RD-IRD  Inter-face  Commands 

*  Create  Dictionary  Command 

CREATE  DICTIONARY  <new-di ct i onary-name) 
[LOCATION  CLAUSE  < impl ementor-def i ned>] 
SCHEMA  IS 

[IN  DICTIONARY  <di ct i onary-name)  3 

[IN  FILE  <*ile-name>] 

[STANDARD] 
[LOAD  DICTIONARY  FROM  < -file -name)]; 

*  Export  Dictionary  Command 

EXPORT  DICTIONARY 
[USING  VIEW  =  ALL] 

[USING  VIEW  =  <view-name>  or  <v iew-name-1 ist>] 
[USING  ENTITY-LIST=  <Ent i ty-1  i st-name)] 
[EXCLUDE  RELATIONSHIP  OF  [ <rel at i onsh i p-type>]  or 

[<relationship-l  ist-name>]] 
[SCHEMA  EXPORT  FILE  =  <expor t-f  i 1 e-name)3 
[SYNTAX  =  <short-string-l i teral)]; 

*  Check  Schema  Compatibility  Command 

CHECK  SCHEMA 

[SOURCE]  or  [TARGET]  SCHEMA  IS 

[IN  DICTIONARY  <di ct i onary-name)  ] 
[IN  FILE  <* ile-name)] 
[STANDARD]; 

*  import  Dictionary  Command 

IMPORT  DICTIONARY 

SCHEMA  EXPORT  FILE  =  <export--fil  e-name) 
DICTIONARY  EXPORT  FILE  = 

<di  ct  i  onary-export--f  i  1  e-name) 
[IN  DICTIONARY  <di ct i onary-name)] 
[IN  FILE  <-f  ile-name>] 
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[STANDARD] 
LIFE-CYCLE-PHASE  =  <1  i  -fe-cycl  e-phase-name)  ; 

3.2  Ut i 1 i  ty  Commands 

*  Set  Session  De-fault  Command 

SET 

[VIEW  =  <view-name>3 
[MODE  =  <mode-type>] 
[SHOW  ATTRIBUTES 

[ENCODED  or  DECODED]] 
[ {<  impl  ementor-de-f  i  ned-opt  i  ons>>] 
[SAVE]; 

*  Session  Status  Command 

STATUS 
[ALL] 
[DICTIONARY] 

[ENTITY-LIST] 

[MODE] 

[VIEWS] 

[PROFILES] 

[DEFAULTS] 

[ <  impl erne n tor -de +  i  ned-opt  ions)] ; 

*  Help   Command 

HELP 
[ALL] 
[ <command-imperat  i  ve-substr  i  ng>] ; 

*  Exit  Dictionary  System  Command 

EXIT; 

*  Enter  Panel  Dialogue  Command 

PANEL  NAME  =  < pan el -name) ; 
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APPENDIX  C 
BACHMAN  DIAGRAMS 


USER 


c 


SYSTEM 


c 


PROGRAM 


c 


MODULE 


L 


DOCUMENT 


L 


FILE 


c 


RECORD 


L 


ELEMENT 
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APPENDIX  D 
SUPPORT  OF  STANDARD  DATA  MODELS 


This  appendix  describes  the  new  entity-types, 
relationship-types  and  at tr i bur e -types  which  can  be  added  to 
the  IRD  to  allow  the  system  to  map  into  NDL  and  SQL  data 
struc  tures  .  C  Ref  ?,  pages  16-20] 


D.l   NETWORD  MODEL  MAPPINGS 


The  -following  tables  describe  the  mappings  between  th' 
generic  entity- types  of  the  Core  IRD  and  the  Network  Model 
entities  and  relationships. 


Ne  twork  Data  Model  Napp i ng  -  En  t i ty  types 


NDL 

IRD  Generic  Model 

Schema 

Schema 

Subscema 

Subscema 

Database 

Database 

Record 

Record  * 

Set 

Set 

Componen  t 

1    El emen  t  * 

Modu 1 e 

Module  * 

Database 

P 

roc 

edu 

re 

1    Proqram  * 

Data  Type 

El emen  t  * 

Ne  twork  Data  Model  Mapp i ngs  -  F e 1  at i on  s  h i p— Types 


NDL 

IRD  Generic  Model  ++ 

Subschema  i  n 

Schema-Con  ta  i  ns-Schema 

Schema  i  s       1 

Schema-Con  tai  ns-Set 

Schema-Con  ta  i  ns-Record 

Owner  i  s 

Se  t-Owner-I s-Record 

Members  are 

Se  t -Member -I s-Record 

Con  ta  i  ns 

Record-Con tai  ns-El ement 

El emen  t-Con  ta  i  ns-El emen  t 

I  den  t  i  f  i  er 

Se  t-Has-Sor  t-Key-El emen  t 

Record-Redef  i  nes— Record 

Schema-Def  i  nes-Database 

El emen  t -Assoc  i  a ted— W i  th-El emen  t 

*  Note  -  these  are  already  defined  in  the 
Standard . 


Core  IRDS 


++  Note  -  these  NDL  relationships  are  in  addition  to  thos< 
appearing  in  the  IRDS  Specifications  in  the  Core  IRDS.   A 
relationship  that  is  in  the  Core  Standard  doe  snot  appear- 
here  unless  a  different  NDL  relationship  maps  into  it. 
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D.2   RELATIONAL  MODEL  MAPPINGS 


The  following  tables  shows  the  mappings  between  the 
generic  and  Relational  Model  entities  and  relationships: 


Network  Data  Model  Mapp  i  ng  -  En t  i  ty  types 


SQL 

1    IRD  Generic  Model 

Schema 
Table 
Col umn 
Data  Type 
Query  &  Operation 
< Joi  n ,  Proj  ec t  i 

on  , 

e 

tc 

,  > 

Schema 
Record  * 
El emen  t  * 
El emen  t  * 
Set 

Re  1  at  i  onal  Data  Model  Mapp  i  ngs  -  Re  1  at i on sh i p - 1 y p e s 


SQL 

IRD  Gener  i  c  Model  +  + 

Submodel  id  tables 

Schema-Con  ta  i  ns— Schema 

Schema-Con  ta  i  ns-Se  t 

is  made  up  o-f  Table     1 

Schema-Con tai  ns-Record 

i  den  t  i  f  i  ed  by 

Re c or d-Has-Ac cess-Key-El emen  t 

El  emen  t  —  I  dent  i  -f  i  es-El  emen  t 

El ement-Ident  i  f  i  es-Record 

is  made  up  o-f  Columns 

Record-Con  tains-El emen  t 

El  emen  t -Assoc  i  ated-w"  i  th-El  emen  t 

*  Note  -  these  are  already  de-fined 
Standard. 


the  Core  I RDS 


++  Note  -  these  SQL  relationships  are  in  addition  to  those 
appearing  in  the  I RDS  Spec i f  i cat i ons  in  the  Core  I RDS .   A 
relationship  that  is  in  the  Core  Standard  doe  snot  appear 
here  unless  a  different  NDL  relationship  maps  into  it. 
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D.3   ENTITY -TYPES  AND  RELATIONSHIP-TYPES 

The  -following  table  identify  new  and  existing 
entity- types  and  gives  their  applicability  to  the  SQL 
NDL  database  models: 


and 


App  1  i  caab  i  1  i  ty  Matrix  of  Entity-T 
SCHEMA  I  DATABASE  I RECORDTsErTiZIi^NT 


/pes 
MODULE  I  PROGRAM 


New 
Enti  ty 
type 


Y 


I  Y  I 


SQL 
Model 


Y    I 


Y    I  Y 


NDL 
Model 


Y  I 
I 
I 


Y    I  Y 


Y 


The  -following  table  identifies  new  and  existing 
relationship-types  and  gives  their  app 1  i caab i 1  i ty  to  the 
and  NDL  database  models: 


SQL 


Applicability  Matrix    o-f    Relationship-Types 


ECE 

RCE 1 RAE 1 RRR 1 SCS 1 SCT 1 SOE 1 SMR 1 SOR 

EIRi  SDDI EIEI EAE 

SCR 

New 
Relat- 
i  onsh  ip 
-type 

1 

Y 
1 

Y 

Y 
I 

Y 

Y 

1 

Y 
1 

Y 

Y  I  Y  1  Y  I  Y 

Y 

NDL 
Model 

Y 

Y 

Y 
1 

Y 

Y 
i 

Y 

Y 
1 

Y 

1 

Y 

1  Y  1    1  Y 

Y 

SQL 
Model 

Y 

1  Y 
1 

1 

1 

1  Y 
1 

1 

Y 

1 

1 

1  Y 

1 

1 

1 

Y  1  Y  1  Y  1  Y 

Y 

DESCRIPTION    LEGEND: 


ECE  = 
RCE  = 
RAE  = 
RRR  = 
SCS  = 
SCT  = 
SOE  = 
SMR  = 
SOR  = 
EIR  = 
SDD  = 
EIE    = 


Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 
Rel 


at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 
at  i  onsh 


p-Type 
p-Type 
p-Type 
p-Type 
p-Type 
p-Type 
p-Type 
p-Type 
p-Type 
p-Type 
p-Type 
p-Type 


"El emen  t-Con  ta  i  ns-El emen t " 

" Record-Con t a  ins-El emen  t " 

" Re c or d-Has-Ac cess-Key-El emen  t " 

" Record-Redef  i  nes-Record" 

" Schema-Con  ta  i  ns-Schema" 

" Schema-Con tai  ns-Set" 

"Set-Has-Sort -Key-El ement" 

■ Se  t -Membe r - 1 s-Re c  or  d " 

"Set-Owner -I s-Re cord" 

"El emen t -I  den  t  i  f  i  e s-Re cord" 

"Schema-Def  i  nes-Dat abase  " 

"El ement -I  dent  i  f  i  es-El ement " 
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EAE  =  Relationship-Type  " El emen t-Assoc i ated-w" i th 

-Element" 
SCR  =  Relationship-Type  " Schema-Con ta i ns-Record" 

D.4   ATTRIBUTE-TYPE  ASSOCIATIONS 

The  -following  table  depicts  the  association  between 
at tr i bur e- types  and  the  entity- types  to  which  they  apply. 
The   "common"  attribute-types  de-fined  as  part  o+  the  Core 
Standard  IRD  apply  as  well. 


Applicability  Matrix  ot  At tr i bu te -Types  to  Entity-Types 
At tr i bu  te-Type  I SCH I  DBA  I RCD I  SET  I  ELM  I MDL I  PGM 


LANGUAGE 

INITIAL-POPULATION 

RATE-OF-ARRIUALS 

RATE-OF-DEPARTURES 

RATE-OF-ACCESS 

RATE-OF-UPDATE 

DEFAULT-CLAUSE 

USAGE 


X 


X 


X 
\/ 

x 
x 
x 
x 

X 


X 


DESCRIPTION  LEGEND: 


SCH 

= 

Ent 

ty-type 

"SCHEMA" 

DBS 

= 

Ent 

ty-type 

"DATABASE" 

RCD 

= 

Ent 

ty-type 

"RECORD" 

SET 

= 

Ent 

ty-type 

"SET" 

ELM 

= 

Ent 

ty-type 

"ELEMENT" 

MDL 

= 

Ent 

t y— t ype 

"MODULE" 

PGM 

= 

Ent 

ty-type 

"PROGRAM" 
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The  -following  table  shows  the  attribute-types 
associated  with  relationship-types: 


1   Applicability  Matrix  o-f  attribute-t 

ypes 

to  Relationship-Types 

1   Attribute-Type                1 SMR1 RAEI EAEI SOEI SCSI SCTI SORI RRR 

1   ACCESS-METHOD                 1 

1  X 

i    1    1    1    1 

1   KEY-SELECT                    1 

1  X 

!    1    1    1    1    1 

1   ORDER-CLAUSE                  1  X 

1 

1    1    1    1    1 

1   INSERTION-MODE                1  X 

1 

1    1    i    1    1    1 

1   RETENTION-MODE                1  X 

1 

1    1    1    1    1 

1   ORDER                        1 

1  X 

I    1  X  1    1    1    1 

1   DUPLICATES                    1  X 

1 

1    1    1    1    1 

1   OCCURS-CLAUSE                 1 

1 

1  X  1    1    1    1    1 

!   LANGUAGE                      1 

1 

1    1    1    1    IX 

1   USAGE                        1 

1 

1 

1    1    1  X  1    1  X  1  X 
1    1    1    1    1 

DESCRIPTION  LEGEND: 


SMR  =  Re  1  at i onsh i p-type 
RAE  =  Relationship-type 
EAE  =  Re  1  at i onsh i p-type 

SOE  =  Re  1  at i onsh i p-type 
SCS  =  Relationship-type 
3CT  =  Re  1  at i onsh i p-type 
SOR  =  Relationship-type 
RRR  =  Relationship-type 


" SET -MEMBER- I S-RECORD" 

" R  E  C 0 R D - S A - A C C E  S S - K EY -EL  EM  ENT " 

" ELEMENT -ASSOC I AT I QN-W I TH 

-ELEMENT" 
■  SET  -HAS  -  SO  RT  -  K  EY  -EL  EM  ENT " 
u  SCHEMA -C ONT A I N S - S  C  H  EM A " 
■ SCHEMA-CONTA INS-SET" 
" SET-OWNER- I S-RECORD" 
"RECORD-REDEFINES-RECORD" 
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APPENDIX  E 
IRDS  PROTOTYPE  SOFTWARE 

*  MAIN.PRG 

*  MODULE  NAME:  MAIN 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  NONE 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .0.0.0.0,  1.2.0.0.0.0,  1.3.0.0.0.0 

*  1.4.0.0.0.0,  1.5.0.0.0.0,  1.6.0.0.0.0 

*  LOCAL  VARIABLES  USED: 


*  choice 

*  one-time 

*  t 

*  test 


CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

USED  TO  INSURE  THAT  THE  ASSOCIATED  ROUTINE  IS  RUN  ONLY  ONCE 
REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 
USED  TO  ALLOW  THE  USER  TO  TEST  FOR  CAPS  LOCK  DOWN. 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  STARTS  THE  INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

*  IT  ALLOW  THE  USER  TO  CHOOSE  WHICH  FUNCTION  WITHIN  THE  SYSTEM 

*  HE  WOULD  LIKE  TO  DO. 

SET  SAFETY  OFF 

STORE  .t.  TO  one_time 

DO  WHILE  one_time 

CLEAR 

STORE  '       '  TO  test 

@  1,1  SAY  "MAIN" 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  11,31  SAY  "PLEASE  INSURE  THAT  YOU" 

@  12,31  SAY  "HAVE  THE  '  CAPS  LOCK  '" 

@  13,31  SAY  "ON  AS  ALL  ANSWERS  TO" 

@  14,31  SAY  "QUESTIONS  NEED  TO  BE" 

@  15,31  SAY  "IN  UPPER  CASE" 

@  17,31  SAY  "TEST  HERE" 

@  17,42  GET  test 

@  18,31  SAY  "PRESS  RETURN  TO  CONTINUE" 

READ 

STORE  .f.  TO  one_time 

SAVE  TO  mem_var 

do  while  .t. 

@  0,1  SAY  "MAIN" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§3,36  SAY  "MAIN  MENU" 

@  6,22  SAY  "1)    DICTIONARY  MAINTENANCE" 

@  8,22  SAY  "2)    DICTIONARY  OUTPUT" 

@  10,22  SAY  "3)    DICTIONARY  QUERY" 

@  12,22  SAY  "4)    SCHEMA  MAINTENANCE" 

@  14,22  SAY  "5)    SCHEMA  OUTPUT" 

@  16,22  SAY  "6)    EXIT  DICTIONARY  SYSTEM" 

@  17,22  SAY  "  " 

ACCEPT  '         ENTER  YOUR  CHOICE  (1-6)  FROM  ABOVE:  '  TO  choice 

DO  CASE 

CASE  choice  =  "1" 

do  110000 

CASE  choice  =  "2" 

DO  120000 

CASE  choice  =  "3" 

DO  130000 

CASE  choice  =  "4" 

DO  140000 

CASE  choice  =  "5" 

DO  150000 

CASE  choice  =  "6" 

CLEAR 

RELEASE  ALL 
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RETURN 

OTHERWISE 

CLEAR 

@  2,4  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  6  ONLY" 

@  3,4  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  110000. PRG 

*  MODULE  NAME:  1.1.0.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  MAIN,  1.1.1.0.0.0,  1.1.2.0.0.0,  1.1.3.0.0.0 

*  1.1.4.0.0.0,  1.1.5.0.0.0. 

*  ROUTINES  THAT  THE  MODULE  CALLS  :1 .1 .1 .0.0.0,  1.1.2.0.0.0,  1.1.3.0.0.0, 

*  1.1.4.0.0.0,  1.1.5.0.0.0,  MAIN. 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  FOR  THE  MAINTENANCE  OF  ENTITY  RELATIONS, 

*  AND  RELATIONSHIP  RELATIONS. 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.0.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,31  SAY  "MAINTENANCE   MENU" 

@  6,22  SAY  "1)    ADD  ENTITY" 

@  8,22  SAY  "2)    MODIFY  ENTITY" 

@  10,22  SAY  "3)    DELETE  ENTITY" 

@  12,22  SAY  "4)    ADD  RELATIONSHIP" 

@  14,22  SAY  "5)    DELETE  RELATIONSHIP" 

@  16,22  SAY  "6)    RETURN  TO  MAIN  MENU" 

@  17,22  SAY  "   " 

ACCEPT  '        ENTER  YOUR  CHOICE  (1-6)  FROM  ABOVE:  '  TO  choice 

DO  CASE 

CASE  choice  =  "1" 

do  111000 

CASE  choice  =  "2" 

DO  112000 

CASE  choice  =  "3" 

DO  113000 

CASE  choice  =  "4" 

DO  114000 

CASE  choice  =  "5" 

DO  115000 

CASE  choice  =  "6" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  2,18  SAY  choice 

(§2,21  SAY  "IS  NOT  A  VALID  CHOICE" 

@  3,18  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  6  ONLY" 

@  4,18  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

WAIT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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1.1.1.3. 

1.8.0.0, 


*  111000. PRG 

*  MODULE  NAME:  1.1.1.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1.1 .1 .1 .0.0,  1.1.1.2 

*  1.1.1.4.0.0,  1.1.1.5.0.0,  1.1.1.6.0.0,  1.1.1.7.0.0, 

*  MAIN 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED, 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RALATION 

*  TO  ADD  TUPLES  TO. 

set  color  to  0/3,3 

set  talk  off 

CLEAR 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.1.0.0.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "ADD  ENTITY" 


0.0.0.0 


ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  '  TO  choice 


@  6,15  SAY  "1)    USER 

(§8,15  SAY  "2)    SYSTEM 

@  10,15  SAY  "3)    PROGRAM 

@  12,15  SAY  "4)    MODULE 

@  14,15  SAY  "5)    DOCUMENT 

@  15,22  SAY  "  " 

ACCEPT  ' 

SET  EXACT  ON 

DO  CASE 

CASE  choice  =  "l1 

do  111100 

CASE  choice  =  "21 

DO  111200 

CASE  choice  =  "31 

DO  111300 

CASE  choice  =  "41 

DO  111400 

CASE  choice  =  "5 

DO  111500 

CASE  choice  =  "6 

DO  111600 

CASE  choice  =  "7 

DO  111700 

CASE  choice  =  "8 

DO  111800 

CASE  choice  =  "9 

RETURN 

CASE  choice  =  "10" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  2,3  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  10  ONLY" 

@  3,3  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO  • 

RETURN 


FILE" 

RECORD" 
ELEMENT" 

RETURN  TO  PREVIOUS  MENU" 
RETURN  TO  MAIN  MENU" 
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*  111100. PRG 


*  MODULE  NAME 

*  INPUT  FILES 

*  OUTPUT  FILES 


1.1.1.1.0.0 

USER 
USER 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1.1 .0.0.0 

*  LOCAL  VARIABLES  USED: 


*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  USER 

*  OUTPUT  FILES:  USER 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  USER  RELATION. 
* 

USE 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.1.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,36  SAY  "ADD  USER" 

@  6,22  SAY  "This  program  will  allow  you  to  enter" 

@  7,22  SAY  "additional  tuples  to  the  USER  relation." 

@  8,22  SAY  "Instructions  for  entering  data  are" 

(§9,22  SAY  "provided  at  top  of  entry  screen." 

@  10,22  SAY  Tl    " 

wait  to  choice 

SET  MENU  ON 

USE  USER 

APPEND 

SET  MENU  OFF 

RETURN 
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*  111200. PRG 


*  MODULE  NAME 

*  INPUT  FILES 

*  OUTPUT  FILES 


1.1.1.2.0.0 

USER 

USER 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS  :1 . 1 . 1 .0  .0 .0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  SYSTEM. 

*  OUTPUT  FILES:  SYSTEM. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  SYSTEM  RELATION, 

USE 

do  while  .t. 

CLEAR 

(§0,1  SAY  "1.1.1.2.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

<§  3,35  SAY  "ADD  SYSTEM" 

@  6,22  SAY  "This  program  will  allow  you  to  enter" 

(§7,22  SAY  "additional  tuples  to  the  SYSTEM  relation." 

(§  8,22  SAY  "Instructions  for  entering  data  are" 

(§9,22  SAY  "provided  at  top  of  entry  screen." 

(§  10,22  SAY  1l  " 

wait  to  choice 

SET  MENU  ON 

USE  SYSTEM 

APPEND 

SET  MENU  OFF 

RETURN 
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111300. PRG 

MODULE  NAME  :  1.1.1.3.0.0 

INPUT  FILES  :  USER 

OUTPUT  FILES:  USER 

ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .1 .0.0.0 

choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

MODIFIED,  DELETED  FROM  OR  OUTPUT, 
t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

LOOP. 
INPUT  FILES:  PROGRAM. 
OUTPUT  FILES:  PROGRAM. 
DESIGNED  BY:   ROBERT  A.  KIRSCH  II 
WRITTEN   BY:   ROBERT  A.  KIRSCH  II 
BASIC  FUNCTION  OF  MODULE: 
THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  PROGRAM  RELATION, 


USE 

set  color  to  0/3,7/0,3 

set  talk  off 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.1.3.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "ADD  PROGRAM" 

(§6,22  SAY  "This  program  will  allow  you  to  enter" 

@  7,22  SAY  "additional  tuples  to  the  PROGRAM  relation." 

@  8,22  SAY  "Instructions  for  entering  data  are" 

@  9,22  SAY  "provided  at  top  of  entry  screen." 

@  10,22  SAY  "  " 

wait  to  choice 

SET  MENU  ON 

USE  PROGRAM 

APPEND 

SET  MENU  OFF 

RETURN 
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*  111400. PRG 


*  MODULE  NAME 

*  INPUT  FILES 

*  OUTPUT  FILES 


1.1.1.4.0.0 

USER 

USER 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .1 .0.0.0 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  MODULE. 

*  OUTPUT  FILES:  MODULE. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  MODULE  RELATION, 

USE 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.1.4.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,36  SAY  "ADD  MODULE" 

@  6,22  SAY  "This  program  will  allow  you  to  enter" 

@  7,22  SAY  "additional  tuples  to  the  MODULE  relation." 

@  8,22  SAY  "Instructions  for  entering  data  are" 

d  9,22  SAY  "provided  at  top  of  entry  screen." 

@  10,22  SAY  Tt    " 

wait  to  choice 

SET  MENU  ON 

USE  MODULE 

APPEND 

SET  MENU  OFF 

RETURN 
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111500. PRG 

MODULE  NAME  :  1.1.1.5.0.0 

INPUT  FILES  :  USER 

OUTPUT  FILES:  USER 

ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .1 .0.0.0 

choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

MODIFIED,  DELETED  FROM  OR  OUTPUT, 
t       :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

LOOP. 
INPUT  FILES:  DOCUMENT. 
OUTPUT  FILES:  DOCUMENT. 
DESIGNED  BY:   ROBERT  A.  KIRSCH  II 
WRITTEN  BY:   ROBERT  A.  KIRSCH  II 
BASIC  FUNCTION  OF  MODULE: 
THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  DOCUMENT  RELATION, 


USE 

set  color  to  0/3,7/0,3 

set  talk  off 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1. 1.5. 0.0' 


@  1,22  SAY 
@  3,36  SAY 
@  6,22  SAY 
@  7,22  SAY 
@  8,22  SAY 
@  9,22  SAY 
@  10,22  SAY 
wait  to  choice 
SET  MENU  ON 
USE  DOCUMENT 
APPEND 
SET  MENU  OFF 
RETURN 


"INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 
"ADD  DOCUMENT" 

"This  program  will  allow  you  to  enter" 
"additional  tuples  to  the  DOCUMENT  relation." 
"Instructions  for  entering  data  are" 
"provided  at  top  of  entry  screen." 
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*  111600. PRG 


*  MODULE  NAME 

*  INPUT  FILES 

*  OUTPUT  FILES 


1.1.1.6.0.0 

USER 

USER 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .1 .0.0.0 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP . 

*  INPUT  FILES:  FILE. 

*  OUTPUT  FILES:  FILE. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  FILE  RELATION. 

USE 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.1.6.0.0" 


§  1,22  SAY 

(§3,36  SAY 

@  6,22  SAY 

(§  7,22  SAY 

(§8,22  SAY 

(§9,22  SAY 

@  10,22  SAY  1l  " 

wait  to  choice 

SET  MENU  ON 

USE  FILE 

APPEND 

SET  MENU  OFF 

RETURN 


INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 
ADD  FILE" 

This  program  will  allow  you  to  enter" 
additional  tuples  to  the  FILE  relation." 
Instructions  for  entering  data  are" 
provided  at  top  of  entry  screen." 
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*  111700. PRG 


*  MODULE  NAME 

*  INPUT  FILES 

*  OUTPUT  FILES 


1.1.1.7.0.0 

USER 
USER 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 . 1 . 1 .0 .0 .0 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  t       :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  RECORD. 

*  OUTPUT  FILES:  RECORD. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  RECORD  RELATION, 
* 

USE 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.1.7.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,36  SAY  "ADD  RECORD" 

@  6,22  SAY  "This  program  will  allow  you  to  enter" 

@  7,22  SAY  "additional  tuples  to  the  RECORD  relation." 

@  8,22  SAY  "Instructions  for  entering  data  are" 

d  9,22  SAY  "provided  at  top  of  entry  screen." 

@  10,22  SAY  1l  " 

wait  to  choice 

SET  MENU  ON 

USE  RECORD 

APPEND 

SET  MENU  OFF 

RETURN 
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*  111800. PRG 


*  MODULE  NAME 

*  INPUT  FILES 

*  OUTPUT  FILES 


1.1.1.8.0.0 

USER 
USER 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1 . 1 .0.0.0 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  ELEMENT. 

*  OUTPUT  FILES:  ELEMENT. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  THE  USER  TO  ENTER  NEW  TUPLES  TO  THE  ELEMENT  RELATION. 

USE 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.1.1.8.0.0" 


@  1,22  SAY 

@  3,36  SAY 

@  6,22  SAY 

@  7,22  SAY 

(§8,22  SAY 

@  9,22  SAY 

@  10,22  SAY  h    " 

wait  to  choice 

SET  MENU  ON 

USE  ELEMENT 

APPEND 

SET  MENU  OFF 

RETURN 


'INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 
ADD  ELEMENT" 

This  program  will  allow  you  to  enter" 
additional  tuples  to  the  ELEMENT  relation. 
Instructions  for  entering  data  are" 
provided  at  top  of  entry  screen." 


144 


*  112000. PRG 

*  MODULE  NAME:  1.1.2.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .2.1 .0.0,  1.1.2.2.0.0,  1.1.2.3.0.0, 

*  1.1.2.4.0.0,  1.1.2.5.0.0,  1.1.2.6.0.0,  1.1.2.7.0.0,  1.1.2.8.0.0,  1.1.0.0.0.0 

*  MAIN 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  INPUT  FILE:  MEM  VAR. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN   BY 


MEM_VAR . 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATION 

*  TO  MODIFY. 
* 

do  while  .t. 

CLEAR 

@  1,1  SAY  "1.1.2.0.0.0" 

(§2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§4,35  SAY  "MODIFY  ENTITY" 

@  7,15  SAY  "1)    USER  6)    FILE" 

(§9,15  SAY  "2)    SYSTEM  7)    RECORD" 

@  11,15  SAY  "3)    PROGRAM  8)    ELEMENT" 

@  13,15  SAY  "4)    MODULE  9)    RETURN  TO  PREVIOUS  MENU" 

@  15,15  SAY  "5)    DOCUMENT  10)    RETURN  TO  MAIN  MENU" 

@  16,22  SAY  "  '' 

ACCEPT  '         ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  '  TO  choice 

DO  CASE 

CASE  choice  =  "1" 

store  'USER'  to  choice 

save  to  mem  var 

do  112100  ~ 

CASE  choice  =  "2" 

store  'SYSTEM'  to  choice 

save  to  mem  var 

DO  112100  ~ 

CASE  choice  =  "3" 

store  'PROGRAM'  to  choice 

save  to  mem  var 

DO  112100 

CASE  choice  =  "4" 

store  'MODULE'  to  choice 

save  to  mem  var 

DO  112100 

CASE  choice  =  "5" 

store  'DOCUMENT'  to  choice 

save  to  mem  var 

DO  112100  ~ 

CASE  choice  =  "6" 

store  'FILE'  to  choice 

save  to  mem  var 

DO  112100  ~ 

CASE  choice  =  "7" 

store  'RECORD'  to  choice 

save  to  mem  var 

DO  112100  ~ 

CASE  choice  =  "8" 

store  'ELEMENT'  to  choice 

save  to  mem  var 

DO  112100  ~ 

CASE  choice  =  "9" 

RETURN 

CASE  choice  =  "10" 

RETURN  TO  MASTER 
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OTHERWISE 

CLEAR 

@  2,3  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  10  ONLY" 

(§3,3  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  112100. PRG 

*  MODULE  NAME:  1.1.2.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .2.1 .0.0,  1.1.2.2.0.0,  1.1.2.3.0.0, 

*  1.1.2.4.0.0,  1.1.2.5.0.0,  1.1.2.6.0.0,  1.1.2.7.0.0,  1.1.2.8.0.0,  1.1.0.0.0.0 

*  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT, 


*  hold 

*  rec_num 

*  stop 

*  t 


USED  TO  STOP  ACTION  FOR  USER  DECISION. 

CONTAINS  THE  VALUE  OF  THE  POINTER  TO  THE  TUPLE  TO  BE  CHANGED. 

USED  TO  STOP  ACTION  FOR  USER  DECISION. 

REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  MEM_VAR,  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD, 

*  ELEMENT. 

*  OUTPUT  FILES:  MEM_VAR ,  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD, 

*  ELEMENT. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATION 

*  TO  MODIFY. 

* 

RESTORE  FROM  mem_var 

STORE  0  TO  rec  num,  stop 

CLEAR 

STORE  .t.  TO  TRUE 

do  while  TRUE 

CLEAR 

@  0,1  SAY  "1.1.2.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "MODIFY  ENTITY" 

@  7,24  SAY  "ENTER  TUPLE  NUMBER  OF  THE" 

@  7,51  SAY  choice 

ACCEPT1  YOU  WISH  TO  MODIFY  '  TO  rec_num 

IF  (rec_num  <=  '0')  .OR.  (rec  num  >  '99999') 

CLEAR 

@  1,24  SAY  rec_num 

@  1,32  SAY  "IS  NOT  A  VALID  RESPONSE" 

(§2,23  SAY  "TUPLE  NUMBER  MUST  BE  GREATER  THAN  0" 

(§■3,23  SAY  "AND  LESS  THAN  99999." 

WAIT  TO  stop 

ELSE 

STORE  .F.  TO  TRUE 

ENDIF 

ENDDO 

DO  CASE 

CASE  choice  =  'USER' 

USE  USER 

EDIT(VAL(  rec  num)) 

RETURN 

CASE  choice  =  'SYSTEM' 

USE  SYSTEM 

EDIT (VAL( rec  num)) 

RETURN 

CASE  choice  =  'PROGRAM' 

USE  PROGRAM 

EDIT(VAL(rec  num)) 

RETURN 

CASE  choice  =  'MODULE' 

USE  MODULE 
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EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'DOCUMENT1 

USE  DOCUMENT 

EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'FILE' 

USE  FILE 

EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'RECORD' 

USE  RECORD 

EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'ELEMENT' 

USE  ELEMENT 

EDIT(VAL(rec_num)) 

RETURN 

@  42,1  SAY  "RETURN]" 
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*  113000. PRG 

*  MODULE  NAME:  1.1.3.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .1 .3.1 .0.0,  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED  ALSO  USED  TO  TRANSFER  THE 

*  RELATION  NAME  TO  NEXT  PROGRAM. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  INPUT  FILE:  MEM  VAR. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN   BY 


MEM  VAR. 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATION 

*  TO  MODIFY. 
* 

SET  EXACT  ON 

set  color  to  0/3,3 

set  talk  off 

CLEAR 

do  while  .t. 

ERASE  mem_var .mem 

CLEAR 

@  1,1  SAY  "1.1.3.0.0.0" 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,35  SAY  "DELETE  ENTITY" 

@  7,15  SAY  "1)    USER  6)    FILE" 

@  9,15  SAY  "2)    SYSTEM  7)    RECORD" 

@  11,15  SAY  "3)    PROGRAM  8)    ELEMENT" 

@  13,15  SAY  "4)    MODULE  9)    RETURN  TO  PREVIOUS  MENU" 

@  15,15  SAY  "5)    DOCUMENT  10)    RETURN  TO  MAIN  MENU" 

@  16,22  SAY  "  " 

ACCEPT  '         ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  '  TO  choice 

DO  CASE 

CASE  choice  =  "1" 

store  'USER'  to  choice 

save  to  mem  var 

do  113100 

CASE  choice  =  "2" 

store  'SYSTEM'  to  choice 

save  to  mem_var 

DO  113100 

CASE  choice  =  "3" 

store  'PROGRAM'  to  choice 

save  to  mem  var 

DO  113100 

CASE  choice  =  "4" 

store  'MODULE'  to  choice 

save  to  mem  var 

DO  113100  ~ 

CASE  choice  =  "5" 

store  'DOCUMENT'  to  choice 

save  to  mem  var 

DO  113100  ~ 

CASE  choice  =  "6" 

store  'FILE'  to  choice 

save  to  mem  var 

DO  113100 

CASE  choice  =  "7" 

stcre  'RECORD'  to  choice 

save  to  mem  var 

DO  113100  ~ 

CASE  choice  =  "8" 

store  'ELEMENT'  to  choice 

save  to  mem  var 
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DO  113100 

CASE  choice  =  "9" 

RETURN 

CASE  choice  =  "10" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  2,18  SAY  choice 

@  2,21  SAY  "IS  NOT  A  VALID  CHOICE 

@  3,18  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  10  ONLY" 

@  4,21  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  113100. PRG 

*  MODULE  NAME:  1.1.3.1.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 . 1 .3 .0 .0 .0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  stop     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  rec_num  :  CONTAINS  THE  VALUE  REPRESENTING  THE  RECORD  CHANGED. 

*  INPUT  FILES:  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD,  ELEMENT 

*  OUTPUT  FILES:  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD,  ELEMENT 


* 


mem  var.mem 


*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN  BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATION 

*  TO  DELETE  TUPLES  FROM. 

SET  MENU  ON 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

STORE  .t.  TO  TRUE 

do  while  TRUE 

CLEAR 

@  0,1  SAY  "1.1.3.1.0.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "DELETE  ENTITY" 

@  7,24  SAY  "ENTER  TUPLE  NUMBER  OF  THE" 

@  .7,51  SAY  choice 

@  8,24  SAY  "TUPLE  YOU  WISH  TO  HAVE  DELETED." 

@  9,24  SAY  "THE  RECORD  WILL  BE  DISPLAYED" 

@  10,24  SAY  "FOR  YOU  TO  EXAMINE.   IF  YOU  ARE" 

@  11,24  SAY  "SURE  THAT  YOU  ARE  DELETING  THE" 

@  12,24  SAY  "RIGHT  RECORD  DEPRESS   -U  .  " 

@  14,24  SAY  "IF  YOU  DO  NOT  WANT  IT  DELETED  DEPRESS" 

@  16,24  SAY  M,0'   TO  RETURN  TO  MAINTENANCE  MENU." 

ACCEPT'  ENTER  THE  TUPLE  NUMBER  NOW  '  TO  rec_num 

IF  rec_num  >  '99999' 

CLEAR 

@  1,24  SAY  rec_num 

(§1,32  SAY  "IS  NOT  A  VALID  RESPONSE" 

@  2,23  SAY  "TUPLE  NUMBER  MUST  BE  GREATER  THAN  0" 

(§3,23  SAY  "AND  LESS  THAN  99999." 

WAIT  TO  stop 

ELSE 

IF  REC_NUM  <=  '0' 

RETURN 

STORE  .F.  TO  TRUE 

ENDIF 

ENDDO 

DO  CASE 

CASE  choice  =  'USER' 

USE  USER 

EDIT(VAL(  rec  num)) 

RETURN 

CASE  choice  =  'SYSTEM' 

USE  SYSTEM  , 

EDIT(VAL(rec  num)) 

RETURN 

CASE  choice  =  'PROGRAM' 

USE  PROGRAM 

EDIT (VAL( rec  num)) 

RETURN 
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CASE  choice  =  'MODULE' 

USE  MODULE 

EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'DOCUMENT' 

USE  DOCUMENT 

EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'FILE' 

USE  FILE 

EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'RECORD' 

USE  RECORD 

EDIT(VAL(rec_num)) 

RETURN 

CASE  choice  =  'ELEMENT' 

USE  ELEMENT 

EDIT(VAL(rec_num)) 

RETURN 

ENDCASE 


15  2 


1.0.0.0.0 
1.4.1.0.0,  MAIN 


114000. PRG 

MODULE  NAME:  1.1.4.0.0.0 

INPUT  FILES:  NONE 

OUTPUT  FILES:  NONE 

ROUTINES  THAT  CALL  THE  MODLUE : 

ROUTINES  THAT  THE  MODULE  CALLS 

LOCAL  VARIABLES  USED: 

choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

CHARACTER  STRING  THAT  IDENTIFIES' THE  RELATION  BEING  ADDED  TO, 

MODIFIED,  DELETED  FROM  OR  OUTPUT. 
:  USED  TO  STOP  THE  SCREEN  OUTPUT  FOR  A  USER  DECISION. 
:  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

LOOP. 
:  CONTAINS  THE  CHARACTER  STRING  THAT  DESCRIBES  THE  RELATIONSHIP 

BEING  ADDED  TO,  DELETED  FROM  OR  OUTPUT. 
INPUT  FILES:  MEM_VAR 
OUTPUT  FILES:  MEM_VAR 
DESIGNED  BY:   ROBERT  A.  KIRSCH  II 
WRITTEN   BY:   ROBERT  A.  KIRSCH  II 
BASIC  FUNCTION  OF  MODULE: 

THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  RELATIONSHIP  HE  WOULD 
LIKE  TO  ADD  TUPLES  TO. 


hold 
t 

title 


* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 
* 

* 

* 
* 

CLEAR 

do  while  -t. 

ERASE  mem_var.mem 

CLEAR 

@  0,1  SAY  "1.1.4.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,32  SAY  "ADD  TO  RELATIONSHIP" 

(§5,9  SAY  "1)    USER  CONTAINS  SYSTEM        8) 

@  5,64  SAY  "ORDS" 

@  7,9  SAY  "2)    SYSTEM  CONTAINS  PROGRAM      9) 

@  7,64  SAY  "LEMENT" 

(§  9,9  SAY  "3)    PROGRAM  PROCESSES  FILE      10) 

(§  9,64  SAY  "FOR  SYSTEM" 

@  11,9  SAY  "4)    PROGRAM  PROCESSES  RECORD    11) 

<§  11,64  SAY  "FOR  FILE" 

@  13,9  SAY  "5)    PROGRAM  PROCESSES  ELEMENT   12) 

@  13,64  SAY  "DOCUMENT" 

@  15,9  SAY  "6)    SYSTEM  CONTAINS  PROGRAM     13) 

@  15,64  SAY  "S  MENU" 

(§17,9  SAY  "7)    PROGRAM  CONTAINS  MODULE     14) 

(§  17,64  SAY  "NU" 

(§  18,22  SAY  " 

ACCEPT  ■ 

DO  CASE 

CASE  choice  = 

store  'U  PROC 


FILE  CONTAINS  REC" 

RECORD  CONTAINS  E" 

USER  RESPONSIBLE" 

USER  RESPONSIBLE" 

PROGRAM  PRODUCES" 

RETURN  TO  PREVIOU" 


RETURN  TO  MAIN  ME1 


ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE:  '  TO  choice 


TO  title 


TO  title 


ii  i  ii 

_S '  to  choice 
store  ' USER-PROCESSES-SYSTEM  * 
save  to  mem_var 
do  114100 
CASE  choice  =  "2" 
store  'S_PROC_P'  to  choice 
store  ' SYSTEM-PROCESSES-PROGRAM ' 
save  to  mem  var 
do  114100 
CASE  choice  =  "3" 
store  'P_PROC_F'  to  choice 
store  ' PROGRAM-PROCESSES-FILE ■  TO  title 
save  to  mem  var 
do  114100 
CASE  choice  =  "4" 
store  'P_PROC_R'  to  choice 
store  'PROGRAM-PROCESSES-RECORD1  TO  title 
save  to  mem  var 
do  114100  " 
CASE  choice  =  "5" 
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store  'P_PROC_E'  to  choice 

store  ' PROGRAM-PROCESSES-ELEMENT '  TO  title 

save  to  mem_var 

do  114100 

CASE  choice  =  "6" 

store  'S  C0NT_P'  to  choice 

store  'SY"STEM-CONTAINS-PROGRAM'  TO  title 

save  to  mem  var 

do  114100 

CASE  choice  =  "7" 

store  'P_C0NT  M'  to  choice 

store  'PROGRAH-CONTAINS-MODULE'  TO  title 

save  to  mem  var 

do  114100 

CASE  choice  =  "8" 

store  'F_C0NT_R'  to  choice 

store  'FILE-CONTAINS-RECORD'  TO  title 

save  to  mem_var 

do  114100 

CASE  choice  =  "9" 

store  'R_C0NT_E'  to  choice 

store  'RECORD-CONTAINS-ELEMENT'  TO  title 

save  to  mem_var 

do  114100 

CASE  choice  =  "10" 

store  'U_RESP_S'  to  choice 

store  'USER-RESPONSIBLE-FOR-SYSTEM'  TO  title 

save  to  mem  var 

do  114100 

CASE  choice  =  "11" 

store  'U_RESP_F'  to  choice 

store  'USER-RESPONSIBLE-FOR-FILE'  TO  title 

save  to  mem_var 

do  114100 

CASE  choice  =  "12" 

store  'P_PR0D_D'  to  choice 

store  'PROGRAM-PRODUCES-DOCUMENT1  TO  title 

save  to  mem_var 

do  114100 

CASE  choice  =  "13" 

RETURN 

CASE  choice  =  "14" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  1,21  SAY  choice 

@  1,28  SAY  "IS  NOT  A  VALID  CHOICE" 

(§2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  14  ONLY1 

@  3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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114100. PRG 

MODULE  NAME:  1.1.4.1.0.0 
INPUT  FILES:  NONE 
OUTPUT  FILES:  NONE 

ROUTINES  THAT  CALL  THE  MODLUE :  1.1.4.0.0.0 
ROUTINES  THAT  THE  MODULE  CALLS :1 . 1 .4.0 .0 .0 
LOCAL  VARIABLES  USED: 

choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 
CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 
MODIFIED,  DELETED  FROM  OR  OUTPUT. 
:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 
:  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

LOOP. 
:  CONTAINS  THE  CHARACTER  STRING  THAT  DESCRIBES  THE  RELATIONSHIP 
BEING  ADDED  TO,  DELETED  FROM  OR  OUTPUT. 
INPUT  FILES:  MEM_VAR,  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD, 
ELEMENT,  U_CONTS ,  U_CONT_S ,  U  CONT_P ,  P_PROC_F,  P_PROC_R, 
P_PROC_R.  P_PROC_E.  S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E , 
U_RESP_S,  U_RESP_F,  P_PRED_D. 
OUTPUT  FILES:  MEM_VAR,  USER,  SYST ,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD, 
ELEMENT,  TEMP  U_CONTS ,  U_CONT_S ,  U_CONT_P ,  P_PROC_F ,  P_PROC_R, 
P_PROC_R.  P_PROC_E.  S_CONT_P,  P  CONT_M,  F  CONT_R,  R_CONT_E , 
U_RESP_S,  U_RESP_F,  P_PRED_D. 

DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

BASIC  FUNCTION  OF  MODULE: 

THIS  MODULE  ALLOW  FOR  THE  ACTUAL  INPUT  OF  ADDITIONAL  TUPLES  TO  THE 

RELATIONSHIP  RELATION  SELECTED. 


hold 
t 

title 


* 

* 

* 
* 

* 

CLEAR 

do  while  .t. 

RESTORE  FROM  mem  var 

CLEAR 

@  0,1  SAY  "1.1.4.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM' 

@  3,32  SAY  "ADD  RELATIONSHIP" 

@  8,22  SAY  "YOU  ARE  ABOUT  TO  BEGIN  ADDING  TUPLES" 

@  9,22  SAY  "TO  THE" 

(§9,30  SAY  TITLE 

@  10,22  SAY  "RELATION." 

WAIT  TO  STOP 

DO  CASE 

CASE  choice  =  "U_PROC_S" 

USE  U_PROC_S 

APPEND 

RETURN 

CASE  choice  =  "S_PROC_P" 

USE  S_PROC_P 

APPEND 

RETURN 

CASE  choice  =  "P  PROC  F" 

USE  P_PROC_F 

APPEND 

RETURN 

CASE  choice  =  "P_PROC_R" 

USE  P_PROC_R 

APPEND 

RETURN 

CASE  choice  =  "P  PROC  E" 

USE  P_PROC  E 

APPEND 

RETURN 

CASE  choice  =  "S  CONT  P" 

USE  S_CONT  P 

APPEND 

RETURN 

CASE  choice  =  "P  CONT  M" 
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USE  P_CONT_M 

APPEND 

RETURN 

CASE  choice  =  "F  CONT  R" 

USE  F_CONT_R 

APPEND 

RETURN 

CASE  choice  =  "R_CONT_E" 

USE  R_CONT_E  ' 

APPEND 

RETURN 

CASE  choice  =  "U  RESP  S" 

USE  U_RESP_S 

APPEND 

RETURN 

CASE  choice  =  "U_RESP_F" 

USE  U_RESP_F 

APPEND 

RETURN 

CASE  choice  =  "P_PROD_D" 

USE  P_PROD_D 

APPEND 

RETURN 

CASE  choice  =  "13" 

RETURN 

CASE  choice  =  "14" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

(§1,21  SAY  choice 

(§1,28  SAY  "IS  NOT  A  VALID  CHOICE" 

(§2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  14  ONLY" 

(§3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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* 

* 

* 

* 
* 

* 

* 
* 

do  while  .t. 
ERASE  mem_var.mem 
CLEAR 


115000. PRG 

MODULE  NAME:  1.1.5.0.0.0 

INPUT  FILES:  NONE 

OUTPUT  FILES:  NONE 

ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

ROUTINES  THAT  THE  MODULE  CALLS : 1 . 1 . 5 . 1 .0 .0 ,  MAIN 

LOCAL  VARIABLES  USED: 

choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

MODIFIED,  DELETED  FROM  OR  OUTPUT. 
:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 
:  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

LOOP. 
:  CONTAINS  THE  CHARACTER  STRING  THAT  DESCRIBES  THE  RELATIONSHIP 

BEING  ADDED  TO,  DELETED  FROM  OR  OUTPUT. 
INPUT  FILE   :  MEM_VAR. 
OUTPUT  FILES:  MEM_VAR. 
DESIGNED  BY:   ROBERT  A.  KIRSCH  II 
WRITTEN   BY:   ROBERT  A.  KIRSCH  II 
BASIC  FUNCTION  OF  MODULE: 

THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  RELATIONSHIP  HE  WOULD 
LIKE  TO  DELETE  TUPLES  FROM. 


hold 
t 

title 


@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 


1  SAY  "1.1.5.0.0.0" 

22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

29  SAY  "DELETE  FROM  RELATIONSHIP" 

9  SAY  "1)    USER  CONTAINS  SYSTEM 

64  SAY  "ORDS" 

9  SAY  "2)    SYSTEM  CONTAINS  PROGRAM 

64  SAY  "LEMENT" 

,9  SAY  "3)    PROGRAM  PROCESSES  FILE 
@  9,64  SAY  "FOR  SYSTEM" 

@  11,9  SAY  "4)    PROGRAM  PROCESSES  RECORD 
@  11,64  SAY  "FOR  FILE" 

@  13,9  SAY  "5)    PROGRAM  PROCESSES  ELEMENT 
@  13,64  SAY  "DOCUMENT" 

(§15,9  SAY  "6)    SYSTEM  CONTAINS  PROGRAM 
@  15,64  SAY  "S  MENU" 

@  17,9  SAY  "7)    PROGRAM  CONTAINS  MODULE 
@  17,64  SAY 
@  18,22  SAY 
ACCEPT  ' 
DO  CASE 
CASE  choice  = 
store  'U  PROC 


NU" 
i  n 


8) 
9) 
10) 
11) 
12) 
13) 
14) 


FILE  CONTAINS  REC" 

RECORD  CONTAINS  E" 

USER  RESPONSIBLE" 

USER  RESPONSIBLE" 

PROGRAM  PRODUCES" 

RETURN  TO  PREVIOU" 


RETURN  TO  MAIN  ME1 


ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE:  '  TO  choice 


"1" 
_S '  to  choice 
store  'USER-PROCESSES-SYSTEM1  TO  title 
save  to  mem  var 
do  115100 
CASE  choice  =  "2" 
store  'S_PROC_P'  to  choice 
store  ' SYSTEM-PROCESSES-PROGRAM '  TO  title 
save  to  mem  var 
do  115100 
CASE  choice  =  "3" 
store  'P_PR0C_F'  to  choice 
store  ' PROGRAM-PROCESSES-FILE '  TO  title 
save  to  mem  var 
do  115100 
CASE  choice  =  "4" 
store  'P_PROC_R'  to  choice 
store  'PROGRAM-PROCESSES-RECORD1  TO  title 
save  to  mem  var 
do  115100  " 
CASE  choice  =  "5" 
store  'P  PROC  E'  to  choice 
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store  'PROGRAM-PROCESSES-ELEMENT1  TO  title 

save  to  mem  var 

do  115100 

CASE  choice  =  "6" 

store  'S  C0NT_P'  to  choice 

store  'SYSTEM-CONTAINS-PROGRAM'  TO  title 

save  to  mem  var 

do  115100 

CASE  choice  =  "7" 

store  'P_CONT  M'  to  choice 

store  'PROGRAM- CONTAINS -MODULE1  TO  title 

save  to  mem_var 

do  115100 

CASE  choice  =  "8" 

store  ' F  CONT_R'  to  choice 

store  'FILE-CONTAINS-RECORD'  TO  title 

save  to  mem  var 

do  115100 

CASE  choice  =  "9" 

store  'R_C0NT_E'  to  choice 

store  'RECORD-CONTAINS-ELEMENT'  TO  title 

save  to  mem  var 

do  115100 

CASE  choice  =  "10" 

store  'U_RESP_S'  to  choice 

store  'USER-RESPONSIBLE-FOR-SYSTEM'  TO  title 

save  to  mem  var 

do  115100 

CASE  choice  =  "11" 

store  'U_RESP_F'  to  choice 

store  'USER-RESPONSIBLE-FOR-FILE'  TO  title 

save  to  mem  var 

do  115100 

CASE  choice  =  "12" 

store  'P  PR0D_D'  to  choice 

store  'PROGRAM-PRODUCES-DOCUMENT'  TO  title 

save  to  mem  var 

do  115100 

CASE  choice  =  "13" 

RETURN 

CASE  choice  =  "14" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  1,21  SAY  choice 

@  1,28  SAY  "IS  NOT  A  VALID  CHOICE" 

@  2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  14  ONLY" 

@  3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  115100. PRG 

*  MODULE  NAME:  1.1.5.1.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.5.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 . 1 . 5 .0 .0 .0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  rec  num  :  CONTAINS  THE  VALUE  OF  THE  POINTER  TO  THE  TUPLE  TO  BE  CHANGED. 

*  t  ~     :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP . 

*  title    :  CONTAINS  THE  CHARACTER  STRING  THAT  DESCRIBES  THE  RELATIONSHIP 

*  BEING  ADDED  TO,  DELETED  FROM  OR  OUTPUT. 

*  INPUT  FILES:  MEM_VAR,  U_CONTS ,  U_CONT_S ,  U_CONT_P ,  P_PROC_F ,  P_PROC_R, 

*  P_PROC_R.  P_PROC_E.  S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E 

*  U_RESP_S,  U_RESP_F,  P_PRED_D . 

*  OUTPUT  FILES:  MEM_VAR ,  U_CONTS ,  U_CONT_S ,  U_CONT_P ,  P_PROC_F ,  P_PROC_R, 

*  P_PROC_R.  P_PROC_E.  S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E 

*  U_RESP_S,  U_RESP_F,  P_PRED_D. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  .WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  FOR  THE  ACTUAL  DELETION  INPUT  OF  ADDITIONAL  TUPLES 

*  FROM  THE  DESIGNATED  RELATIONSHIP  FILE  SELECTED. 
* 

do  while  .t. 

RESTORE  FROM  mem_var 

CLEAR 

@  0,1  SAY  "1.1.5.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,29  SAY  "DELETE  FROM  RELATIONSHIP" 

@  8,21  SAY  "ENTER  TUPLE  NUMBER  OF  THE" 

@  10,24  SAY  TITLE 

@  12,21  SAY  "TUPLE  THAT  YOU  WISH  TO  HAVE  DELETED." 

@  13,21  SAY  "THE  TUPLE  WILL  BE  DISPLAYED  FOR" 

@  14,21  SAY  "YOU  TO  EXAMINE.   IF  YOU  ARE" 

@  15,21  SAY  "SURE  THAT  YOU  ARE  DELETING  THE" 

@  16,21  SAY  "RIGHT  TUPLE,  DEPRESS   -U  .   IF" 

@  17,21  SAY  "YOU  DO  NOT  WANT  IT  DELETED," 

@  18,21  SAY  "TYPE   0  FOR  TUPLE  NUMBER" 

@  19,21  SAY  "TO  RETURN  TO  PREVIOUS  MENU." 

@  20,21  SAY  "  " 

ACCEPT1  ENTER  THE  TUPLE  NUMBER  NOW  ■  TO  rec_num 

DO  WHILE  rec_num  <>  '0' 

DO  CASE 

CASE  choice  =  "U_PROC  S" 

USE  U  PROC_S 

GOTO  XVAL(rec  num)) 

EDIT 

RETURN 

CASE  choice  =  "S  PROC  P" 

USE  S  PROC_P 

GOTO  TVAL(rec  num)) 

EDIT 

RETURN 

CASE  choice  =  "P  PROC  F" 

USE  P  PROC_F 

GOTO  TVAL(rec  num)) 

EDIT 

RETURN 

CASE  choice  =  "P  PROC  R" 

USE  P  PROC_R 

GOTO  XVAL(rec  num)) 

EDIT 
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RETURN 

CASE  choice  =  "P_PROC_E" 

USE  P  PROC_E 

GOTO  TVAL(rec_num)) 

EDIT 

RETURN 

CASE  choice  =  "S_CONT_P" 

USE  S  CONT_P 

GOTO  XVAL(rec_num)) 

EDIT 

RETURN 

CASE  choice  =  "P_CONT_M" 

USE  P  CONT_M 

GOTO  XVAL(rec_num)) 

EDIT 

RETURN 

CASE  choice  =  "F_CONT_R" 

USE  F  CONT_R 

GOTO  TVAL(rec_num)) 

EDIT 

RETURN 

CASE  choice  =  "R_CONT_E" 

USE  R  CONT_E 

GOTO  TVAL(rec_num)) 

EDIT 

RETURN 

CASE  choice  =  "U_RESP_S" 

USE  U  RESP_S 

GOTO  TVAL(rec_num)) 

EDIT 

RETURN 

CASE  choice  =  "U_RESP_F" 

USE  U  RESP_F 

GOTO  TVAL(rec_num)) 

EDIT 

RETURN 

CASE  choice  =  "P_PROD_D" 

USE  P  PROD_D 

GOTO  XVAL(rec_num)) 

EDIT 

RETURN 

ENDCASE 

ENDDO 

RETURN 
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*  120000. PRG 

*  MODULE  NAME:  1.2.0.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  MAIN 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2.1 .0.0.0,  1.2.2.0.0.0,  MAIN. 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED, 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN  BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  THE  USER  TO  SELECT  ENTITY  RELATIONS, 

*  AND  RELATIONSHIP  RELATIONS  FOR  OUTPUT. 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.2.0.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,31  SAY  "DICTIONARY  OUTPUT" 

@  6,22  SAY  "1)    ENTITY" 

@  8,22  SAY  "2)    RELATIONSHIP" 

@  10,22  SAY  "3)    RETURN  TO  MAIN  MENU" 

@  11,22  SAY  "  " 

ACCEPT  '         ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  ■  TO  choice 

DO  CASE 

CASE  choice  =  "1" 

do  121000 

CASE  choice  =  "2" 

DO  122000 

CASE  choice  =  "3" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  2,18  SAY  choice 

@  2,21  SAY  "IS  NOT  A  VALID  CHOICE" 

@  3,18  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY" 

@  4,18  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  121000. PRG 

*  MODULE  NAME:  1.2.1.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 . 2 .0 .0 .0 .0 ,  1.2.1.1.0.0  MAIN 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED, 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 


*  INPUT  FILE 

*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN  BY 


@  6,15  SAY  "1)    USER  6)    FILE" 


MEMJ/AR. 
MEM_VAR 

ROBERT  A.  KIRSCH  II 

ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATION 

*  TO  OUTPUT. 
* 

do  while  .t. 

ERASE  mem_var.mem 

CLEAR 

@  0,1  SAY  "1.2.1.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,34  SAY  "ENTITY  OUTPUT" 

(§8,15  SAY  "2)    SYSTEM  7)    RECORD" 

@  10,15  SAY  "3)    PROGRAM  8)    ELEMENT" 

@  12,15  SAY  "4)    MODULE  9)    RETURN  TO  PREVIOUS  MENU1 

@  14,15  SAY  "5)    DOCUMENT  10)    RETURN  TO  MAIN  MENU" 

@  15,1  SAY  "  " 

ACCEPT1         ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  "TO  choice 

DO  CASE 

CASE  choice  =  "1" 

store  'USER'  to  choice 

save  to  mem  var 

do  121100 

CASE  choice  =  "2" 

store  'SYSTEM'  to  choice 

save  to  mem_var 

DO  121100 

CASE  choice  =  "3" 

store  'PROGRAM'  to  choice 

save  to  mem_var 

DO  121100 

CASE  choice  =  "4" 

store  'MODULE'  to  choice 

save  to  mem_var 

DO  121100 

CASE  choice  =  "5" 

store  'DOCUMENT'  to  choice 

save  to  mem  var 

DO  121100 

CASE  choice  =  "6" 

store  'FILE'  to  choice 

save  to  mem  var 

DO  121100 

CASE  choice  =  "7" 

store  'RECORD'  to  choice 

save  to  mem_var 

DO  1211000 

CASE  choice  =  "8" 

store  'ELEMENT'  to  choice 

save  to  mem  var 

DO  121100 

CASE  choice  =  "9" 

RETURN 

CASE  choice  =  "10" 

RETURN  TO  MASTER 

OTHERWISE 
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CLEAR 

@  1,23  SAY  choice 

@  1,31  SAY  "IS  NOT  A  VALID  CHOICE" 

@  2,18  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  10  ONLY" 

@  3,18  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  121100. PRG 

*  MODULE  NAME:  1.2.1.1.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2 . 1 .0 . 0 . 0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

*  OR  THE  PRINTER. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR 

*  OUTPUT  FILES:  MEM_VAR 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHETHER  THE  OUTPUT  WILL  BE 

*  DISPLAYED  ON  THE  SCREEN  OR  PRINTED. 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

STORE  .t.  TO  TRUE 

do  while  TRUE 

CLEAR 

@  0,1  SAY  "1.2.1.1.0.0" 

RESTORE  FROM  mem_var 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,33  SAY  "ENTITY  OUTPUT" 

@  8,23  SAY  "LISTED  BELOW  ARE  THE  CHOICES  FOR  HOW" 

@  9,23  SAY  "YOU  CAN  HAVE  THE  RELATION" 

@  9,50  SAY  CHOICE 

@  10,23  SAY  "DISPLAYED." 

@  12,28  SAY  "1)   SCREEN  OUTPUT" 

@  14,28  SAY  "2)   PRINTER  OUPUT" 

@  16,28  SAY  "3)   RETURN  TO  PREVIOUS  MENU" 

(§17,1  SAY  "  " 

ACCEPT1         ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE  'TO  option 

ERASE  mem_var.mem 

SAVE  TO  meni  var 

DO  CASE 

CASE  option  =  '1' 

DO  CASE 

CASE  CHOICE  =  'USER' 

DO  121110 

CASE  choice  =  'SYSTEM' 

DO  121110 

CASE  CHOICE  =  'PROGRAM' 

DO  121110 

CASE  choice  =  'MODULE' 

DO  121110 

CASE  CHOICE  =  'DOUCMENT' 

DO  121120 

CASE  choice  =  'FILE' 

DO  121120  " 

CASE  CHOICE  =  'RECORD' 

DO  121120 

CASE  choice  =  'ELEMENT' 

DO  121120 

ENDCASE 

CASE  option  =  '2' 

DO  CASE 

CASE  CHOICE  =  'USER' 

DO  121130 
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CASE  choice 
DO  121130 
CASE  CHOICE 
DO  121130 
CASE  choice 
DO  121130 
CASE  CHOICE 
DO  121140 
CASE  choice 
DO  121140 
CASE  CHOICE 
DO  121140 
CASE  choice 
DO  121140 
ENDCASE 
CASE  option 
RETURN 
OTHERWISE 
CLEAR 
@  0,27 
@  0,34 
@  1,26 
ACCEPT 
ENDCASE 
ENDDO 


=  'SYSTEM' 

=  'PROGRAM' 

=  'MODULE' 

=  'DOUCMENT 

=  'FILE' 

=  'RECORD' 

=  'ELEMENT' 


=  '3 


SAY  option 
SAY  "IS  NOT 
SAY  "PLEASE 
TO  hold 


A  VALID  CHOICE" 
ENTER  VALUES  BETWEEN 


1  AND  3  ONLY1 
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*  121110. PRG 

*  MODULE  NAME:  1.2.1.1.1.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2.1 .1 .0 .0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  stop,  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  count:  KEEPS  TRACK  OF  ACCOUNT  NUMBERS. 

*  INPUT  FILE:  MEM  VAR. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN   BY 


MEM  VAR. 

ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  ON  THE  SCREEN  USER,  SYSTEM, 

*  PROGRAM  AND  MODULE  RELATIONS 
^RESTORE  FROM  mem_var 

CLEAR 

@  0,1  SAY  "1.2.1.1.1.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,30  SAY  "ENTITY  SCREEN  OUTPUT" 

@  5,22  SAY  "THIS  MODULE  WILL  DISPLAY" 

@  5,48  SAY  choice 

@  7,22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY" 

@  8,22  SAY  "THIS  ENTITY,  TYPE  '0'  TO" 

@  9,22  SAY  "RETURN  TO  THE  PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

DO  CASE 

CASE  choice  =  'USER' 

CLEAR 

USE  USER 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

@  8,28  SAY  LST_MOD_DT 

(§9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  SAY  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  SAY  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 
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CASE  choice  =  'SYSTEM' 

USE  SYSTEM 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

(§0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

@  8,28  SAY  LST_MOD_DT 

@  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

(§11,1  SAY  "DESCRIPTION:" 

@  11,28  SAY  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  SAY  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'PROGRAM' 

USE  PROGRAM 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

@  8,28  SAY  LST_MOD_DT 

@  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  SAY  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  SAY  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'MODULE' 

USE  MODULE 
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STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  CHOICE 

@  4,1  SAY  "RECORD 
ii 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

(§6,28  SAY  ACC  NAME 

(§7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  ID_NAME 

@  8,1  SAY  "DATE  TUPLE  ADDED:" 

@  8,28  SAY  DATE  ADDED 

@  9,1  SAY  "TUPLE  ADDED  BY:" 

@  9,28  SAY  ADDED_BY 

(§10,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

@  10,28  SAY  LST_MOD_DT 

@  11,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  11,28  SAY  LST_MOD  BY 

@  12,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  12,28  SAY  NUM_OF_MOD 

@  13,1  SAY  "DESCRIPTION:" 

@  11,28  SAY  DESCRIPT 

@  17,1  SAY  "COMMENTS:" 

@  15,28  SAY  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 
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*  121120. PRG 

*  MODULE  NAME:  1.2.1.1.2.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS  :1 . 2 . 1 . 1 .0 .0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED, 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  stop,  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  count:  KEEPS  TRACK  OF  ACCOUNT  NUMBERS. 

*  INPUT  FILE:  MEM  VAR. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN   BY 


MEM_VAR . 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  ON  THE  SCREEN  DOCUMENT,  FILE, 

*  RECORD,  AND  ELEMENT  RELATIONS. 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.2.1.1.2.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,30  SAY  "ENTITY  SCREEN  OUTPUT" 

(§5,22  SAY  "THIS  MODULE  WILL  DISPLAY" 

@  5,48  SAY  choice 

@  7,22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY  THIS" 

@  8,22  SAY  "ENTITY,  TYPE  '0'  TO  RETURN  TO" 

(§  9,22  SAY  "PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

DO  CASE 

CASE  choice  =  'DOCUMENT' 

USE  DOCUMENT 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

(§2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

(§5,28  SAY  ID_NAME 

(§6,1  SAY  "DATE  TUPLE  ADDED:" 

(§6,28  SAY  DATE_ADDED 

(§7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

(§8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

(§9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

(§10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

(§  10,28  SAY  NUM_OF_MOD 

(§11,1  SAY  "DESCRIPTION:" 

(§  11,28  DESCRIPT 

(§15,1  SAY  "COMMENTS:" 

@  15,28  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 
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RETURN 

CASE  choice  =  'FILE' 

USE  FILE 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

(§  2,1  SAY  "RECORD 
ii 

(§  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

(§  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

(§  6,1  SAY  "DATE  TUPLE  ADDED:" 

(§  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

(§8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

(§  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

(§  9,28  SAY  LST_MOD_BY 

(§10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

(§  10,28  SAY  NUM_OF_MOD 

(§11,1  SAY  "DESCRIPTION:" 

(§  11,28  DESCRIPT 

(§15,1  SAY  "COMMENTS:" 

(§  15,28  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'RECORD' 

USE  RECORD 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

(§0,33  SAY  CHOICE 

(§2,1  SAY  "RECORD 
ii 

(§  2,11  SAY  count 

store  count  +  1  to  count 

(§4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  ACC_NAME 

(§5,1  SAY  "IDENTIFICATION  NAME:" 

(§  5,28  SAY  ID_NAME 

(§6,1  SAY  "DATE  TUPLE  ADDED:" 

(§6,28  SAY  DATE_ADDED 

(§7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

(§9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

(§9,28  SAY  LST_MOD_BY 

(§10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

(§  10,28  SAY  NUM_OF_MOD 

(§11,1  SAY  "DESCRIPTION:" 

(§  11,28  DESCRIPT 

(§15,1  SAY  "COMMENTS:" 

(§  15,28  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'ELEMENT' 
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USE  ELEMENT 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

(§2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

(§5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

(§6,28  SAY  DATE  ADDED 

(§7,1  SAY  "TUPLE  ADDED  BY:" 

(§7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

(§9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

(§9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

(§  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ■ TO  hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 
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*  121130. PRG 

*  MODULE  NAME:  1.2.1.1.3.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2.1 .1 .0.0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  stop,  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  count:  KEEPS  TRACK  OF  ACCOUNT  NUMBERS. 

*  INPUT  FILE:  MEM  VAR. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN  BY 


MEM_VAR. 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  OUTPUT  THE  USER,  SYSTEM,  PROGRAM  AND  MODULE 

*  RELATION  FILES  TO  THE  PRINTER. 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.2.1.1.3.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,29  SAY  "ENTITY  PRINTER  OUTPUT" 

@  6,23  SAY  "THIS  MODULE  WILL  PRINT" 

@  6,47  SAY  choice 

@  8,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  9,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

(§  10,23  SAY  "MODE" 

@  12,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

@  13,23  SAY  "THIS  ENTITY,  TYPE  '0'  TO" 

(§  14,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

DO  CASE 

CASE  choice  =  'USER1 

USE  USER 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

(§  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

(§5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

(§  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

(§8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

(§  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

(§11,1  SAY  "DESCRIPTION:" 

(§  11,28  SAY  DESCRIPT 
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@  1.5,1  SAY  "COMMENTS:" 

@  15,28  SAY  COMMENTS 

@  18,1  SAY  "  " 

SKIP 

ENDDO 

CASE  choice  =  'SYSTEM' 

USE  SYSTEM 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

(§  4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

(§5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

(§8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

@  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

(§10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  SAY  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  SAY  COMMENTS 

@  18,1  SAY  "  " 

SKIP 

ENDDO 

CASE  choice  =  'PROGRAM' 

USE  PROGRAM 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

(§  4,28  SAY  ACC_NAME 

(§  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

(§6,28  SAY  DATE_ADDED 

(§7,1  SAY  "TUPLE  ADDED  BY:" 

(§7,28  SAY  ADDED_BY 

(§8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

@  8,28  SAY  LST_MOD_DT 

(§9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

(§10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

(§11,1  SAY  "DESCRIPTION:" 

(§  11,28  SAY  DESCRIPT 

(§15,1  SAY  "COMMENTS:" 

(§  15,  28  SAY  COMMENTS 

(§18,1  SAY  "  " 

SKIP 
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ENDDO 

CASE  choice  =  'MODULE' 

USE  MODULE 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

(§5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

(§  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

(§9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

(§9,28  SAY  LST_MOD_BY 

(§10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

(§  10,28  SAY  NUM_OF_MOD 

(§11,1  SAY  "DESCRIPTION:" 

(§  11,28  SAY  DESCRIPT 

(§15,1  SAY  "COMMENTS:" 

(§  15,28  SAY  COMMENTS 

(§18,1  SAY  "  " 

SKIP 

ENDDO 

ENDCASE 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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*  121140. PRG 

*  MODULE  NAME:  1.2.1.1.4.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2.1 .1 .0.0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED, 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  stop,  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  count:  KEEPS  TRACK  OF  ACCOUNT  NUMBERS. 

*  INPUT  FILE:  MEM  VAR. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN   BY 


MEM_VAR . 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  OUTPUT  THE  FIRST  FOUR  RELATIONSHIP 

*  RELATION  FILES  TO  THE  PRINTER. 
* 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.2.1.1.4.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,29  SAY  "ENTITY  PRINTER  OUTPUT" 

@  6,23  SAY  "THIS  MODULE  WILL  PRINT" 

@  6,47  SAY  choice 

@  8,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  9,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

@  10,23  SAY  "MODE" 

@  12,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

@  13,23  SAY  "THIS  RELATION,  TYPE  '0'  TO" 

@  14,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

DO  CASE 

CASE  choice  =  'DOCUMENT' 

USE  DOCUMENT 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

(§7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

@  8,28  SAY  LST_MOD_DT 

@  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  DESCRIPT 
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@  15,1  SAY  "COMMENTS:" 

@  15,28  COMMENTS 

(§18,1  SAY  "  " 

SKIP 

ENDDO 

CASE  choice  =  'FILE' 

USE  FILE 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_M0D_DT 

@  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_M0D_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  COMMENTS 

@  18,1  SAY  "  " 

SKIP 

ENDDO 

CASE  choice  =  'RECORD' 

USE  RECORD 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

(§2,11  SAY  count 

store  count  +  1  to  count 

(§4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  ACC  NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

@  8,28  SAY  LST_MOD_DT 

@  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  COMMENTS 

@  18,1  SAY  "  " 

SKIP 
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ENDDO 

CASE  choice  =  'ELEMENT' 

USE  ELEMENT 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  ACC_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  ID_NAME 

@  6,1  SAY  "DATE  TUPLE  ADDED:" 

@  6,28  SAY  DATE_ADDED 

@  7,1  SAY  "TUPLE  ADDED  BY:" 

@  7,28  SAY  ADDED_BY 

@  8,1  SAY  "DATE  TUPLE  LAST  MODIFIED:" 

(§8,28  SAY  LST_MOD_DT 

@  9,1  SAY  "TUPLE  LAST  MODIFIED  BY:" 

@  9,28  SAY  LST_MOD_BY 

@  10,1  SAY  "NUMBER  OF  MODIFICATIONS:" 

@  10,28  SAY  NUM_OF_MOD 

@  11,1  SAY  "DESCRIPTION:" 

@  11,28  DESCRIPT 

@  15,1  SAY  "COMMENTS:" 

@  15,28  COMMENTS 

@  18,1  SAY  "  " 

SKIP 

ENDDO 

ENDCASE 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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*  122100. PRG 

*  MODULE  NAME:  1.2.2.1.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.2.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 . 2 .2 .0 .0 .0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

*  OR  THE  PRINTER. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHETHER  THE  OUTPUT  WILL  BE 

*  DISPLAYED  ON  THE  SCREEN  OR  PRINTED. 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

STORE  . t.  TO  TRUE 

do  while  TRUE 

CLEAR 

@  0,1  SAY  "1.2.2.1.0.0" 

RESTORE  FROM  mem  var 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,29  SAY  "RELATIONSHIP  OUTPUT" 

@  8,23  SAY  "LISTED  BELOW  ARE  THE  CHOICES  FOR" 

@  9,23  SAY  "HOW  YOU  CAN  HAVE  THE  RELATIONSHIP" 

@  11,24  SAY  TITLE 

@  13,23  SAY  "DISPLAYED." 

@  15,28  SAY  "1)   SCREEN  OUTPUT" 

@  17,28  SAY  "2)   PRINTER  OUPUT" 

@  19,28  SAY  "3)   RETURN  TO  PREVIOUS  MENU" 

@  20,1  SAY  "  " 

ACCEPT'         ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE  'TO  option 

ERASE  mem_var.mem 

SAVE  TO  mem_var 

DO  CASE 

CASE  option  =  ' 1 ' 

DO  CASE 

CASE  CHOICE  =  'U_PROC_S' 

DO  122110 

CASE  choice  =  'S_PROC_P' 

DO  122110 

CASE  CHOICE  =  'P_PR0C_F' 

DO  122110 

CASE  choice  =  'P_PROC_R' 

DO  122110 

CASE  CHOICE  =  'P_PROC_E' 

DO  122120 

CASE  choice  =  'S_CONT_P' 

DO  122120 

CASE  CHOICE  =  'P_CONT_M' 

DO  122120 

CASE  choice  =  'F  CONT_R' 

DO  122120 

CASE  CHOICE  =  'R  CONT_E ' 

DO  122130 

CASE  choice  =  'U_RESP_S' 

DO  122130 

CASE  CHOICE  =  'U  RESP_F' 

DO  122130 
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CASE  choice  =  'P_PROD_D' 

DO  122130 

ENDCASE 

CASE  option  =  '2' 

DO  CASE 

CASE  CHOICE  =  'U_PR0C_S' 

DO  122140 

CASE  choice  =  'S_PROC_P' 

DO  122140 

CASE  CHOICE  =  'P_PROC_F' 

DO  122140 

CASE  choice  =  'P_PROC_R' 

DO  122140 

CASE  CHOICE  =  'P_PROC_E' 

DO  122150 

CASE  choice  =  'S_CONT_P' 

DO  122150 

CASE  CHOICE  =  'P_CONT_M' 

DO  122150 

CASE  choice  =  'F_CONT_R' 

DO  122150 

CASE  CHOICE  =  'R_CONT  E' 

DO  122160 

CASE  choice  =  'U_RESP  S' 

DO  122160 

CASE  CHOICE  =  'U_RESP_F' 

DO  122160 

CASE  choice  =  'P  PROD  D' 

DO  122160 

ENDCASE 

CASE  option  =  '3' 

RETURN 

OTHERWISE 

CLEAR 

@  0,27  SAY  option 

@  0,34  SAY  "IS  NOT  A  VALID  CHOICE" 

@  1,26  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY1 

@  2,26  SAY  "PRESS  RETURN  AND  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 
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*  count 

*  hold 

*  option 


*  122110. PRG 

*  MODULE  NAME:  1.2.2.1.1.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.2.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2 .2 . 1 .0 .0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 
USED  TO  KEEP  TRACK  OF  THE  RECORD  NUMBER  BEING  DISPLAYED. 
USED  TO  STOP  ACTION  FOR  USER  DECISION. 
CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

*  OR  THE  PRINTER. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  MEM_VAR  U_CONTS ,  S_CONT_P ,  P_PROC_F ,  P_PROC_R. 

*  OUTPUT  FILES:  MEM_VAR. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  ON  THE  FIRST  FOUR  RELATIONSHIP  TO  THE  SCREEN. 
* 

RESTORE  FROM  mem_var 

CLEAR 

@  0,1  SAY  "1.2.2.1.1.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§3,28  SAY  "RELATIONSHIP  SCREEN  OUTPUT" 

@  5,22  SAY  "THIS  MODULE  WILL  DISPLAY" 

@  7,23  SAY  TITLE 

@  9,22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY" 

@  10,22  SAY  "THIS  RELATIONSHIP,  TYPE  '0'  TO" 

@  11,22  SAY  "RETURN  TO  THE  PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

DO  CASE 

CASE  choice  =  ' U_PROC  S' 

CLEAR 

USE  U_PROC_S 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
ii 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

(§6,28  SAY  U_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  S  NAME 

@  9,1  SAY  "  TT 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'S_PROC_P' 

USE  S_PROC_P 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

(§2,33  SAY  TITLE 
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@  4,1  SAY  "RECORD 
ii 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  S_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

(§  7,28  SAY  P_NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'P_PROC_F' 

USE  P_PROC_F 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
ii 

(§  4,11  SAY  count 

store  count  +  1  to  count 

(§6,1  SAY  "ACCESS  NAME:" 

(§  6,28  SAY  P_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

(§  7,28  SAY  F_NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'P_PROC_R' 

USE  P_PROC_R 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
ii 

(§4,11  SAY  count 

sto.re  count  +  1  to  count 

(§  6,1  SAY  "ACCESS  NAME:" 

(§6,28  SAY  P_NAME 

(§7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  R_NAME 

(§8,1  SAY  "COMMENTS:" 

DISPLAY  OFF  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 

*  MODULE  NAME:  1.2.2.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :TBD,  MAIN 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  INPUT  FILE:  MEM  VAR. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN   BY 


MEM_VAR. 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  RELATIONSHIP  HE  WOULD 

*  LIKE  TO  DELETE  TUPLES  FROM. 
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do  while  .t. 
ERASE  mem_var .mem 
CLEAR 


8 
@ 

e 
e 
@ 
@ 


8) 
9) 
10) 
11) 
12) 
13) 
14) 


ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE :' TO  choice 


ii  i  ii 

S1  to  choice 


TO  title 


1  SAY  "1.2.2.0.0.0" 

22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM1 

29  SAY  "RELATIONSHIP  OUTPUT" 

9  SAY  "1)    USER  CONTAINS  SYSTEM 

64  SAY  "ORDS" 

.9  SAY  "2)    SYSTEM  CONTAINS  PROGRAM 
@  7,64  SAY  "LEMENT" 

@  9,9  SAY  "3)    PROGRAM  PROCESSES  FILE 
@  9,64  SAY  "FOR  SYSTEM" 

@  11,9  SAY  "4)    PROGRAM  PROCESSES  RECORD 
@  11,64  SAY  "FOR  FILE" 

@  13,9  SAY  "5)    PROGRAM  PROCESSES  ELEMENT 
@  13,64  SAY  "DOCUMENT" 

@  15,9  SAY  "6)    SYSTEM  CONTAINS  PROGRAM 
@  15,64  SAY  "S  MENU" 

@  17,9  SAY  "7)    PROGRAM  CONTAINS  MODULE 
@  17,64  SAY  "NU" 
@  18,22  SAY  " 
ACCEPT  ' 
DO  CASE 
CASE  choice  = 
store  'U_PROC_ 

store  'USER  PROCESSES  SYSTEM1 
save  to  mem  var 
do  122100 
CASE  choice  =  "2" 
store  'S_PROC_P'  to  choice 
store  'SYSTEM  PROCESSES  PROGRAM1  TO  title 
save  to  mem  var 
do  122100 
CASE  choice  =  "3" 
store  'P_PROC_F'  to  choice 
store  'PROGRAM  PROCESSES  FILE'  TO  title 
save  to  mem_var 
do  122100 
CASE  choice  =  "4" 
store  'P_PROC_R'  to  choice 
store  'PROGRAM  PROCESSES  RECORD'  TO  title 
save  to  mem  var 
do  122100 
CASE  choice  =  "5" 
store  'P_PROC_E'  to  choice 

store  'PROGRAM  PROCESSES  ELEMENT'  TO  title 
save  to  mem  var 
do  122100 
CASE  choice  =  "6" 
store  'S_CONT_P'  to  choice 
store  'SYSTEM  CONTAINS  PROGRAM 
save  to  mem  var 
do  122100 
CASE  choice  =  "7" 
store  'P_CONT_M'  to  choice 
store  'PROGRAM  CONTAINS  MODULE 
save  to  mem_var 
do  122100 
CASE  choice  =  "8" 
store  'F_C0NT_R'  to  choice 
store  'FILE  CONTAINS  RECORD' 
save  to  mem  var 
do  122100 
CASE  choice  =  "9" 
store  'R  CONT  E'  to  choice 
store  'RECORD  CONTAINS  ELEMENT' 
save  to  mem  var 


FILE  CONTAINS  REC" 
RECORD  CONTAINS  E" 
USER  RESPONSIBLE" 
USER  RESPONSIBLE" 
PROGRAM  PRODUCES" 
RETURN  TO  PREVIOU" 
RETURN  TO  MAIN  ME" 


TO  title 


TO  title 


TO  title 


TO  title 
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do  122100 

CASE  choice  =  "10" 

store  'U  RESP  S1  to  choice 

store  'USER  RESPONSIBLE  FOR  SYSTEM1  TO  title 

save  to  mem_var 

do  122100 

CASE  choice  =  "11" 

store  'U  RESP_F'  to  choice 

store  'USER  RESPONSIBLE  FOR  FILE'  TO  title 

save  to  mem  var 

do  122100 

CASE  choice  =  "12" 

store  'P_PROD_D'  to  choice 

store  'PROGRAM  PRODUCES  DOCUMENT'  TO  title 

save  to  mem  var 

do  122100 

CASE  choice  =  "13" 

RETURN 

CASE  choice  =  "14" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  1,21  SAY  choice 

@  1,28  SAY  "IS  NOT  A  VALID  CHOICE" 

@  2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  14  ONLY" 

@  3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  122120. PRG 

*  MODULE  NAME:  1.2.2.1.2.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.2.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 . 2 . 2 . 1 . 0 . 0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  count    :  USED  TO  KEEP  TRACK  OF  THE  RECORD  NUMBER  BEING  DISPLAYED. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

OR  THE  PRINTER. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  MEM_VAR  P_PROC  E,  S  CONT  P,  P  CONT  M,  F  CONT  R. 

*  OUTPUT  FILES:  MEM_VAR. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  THE  NEXT  FOUR  RELATIONSHIP  TO  THE  SCREEN. 
* 

RESTORE  FROM  mem  var 

CLEAR 

@  0,1  SAY  "1.2.2.1.2.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,28  SAY  "RELATIONSHIP  SCREEN  OUTPUT" 

(§5,22  SAY  "THIS  MODULE  WILL  DISPLAY"  ' 

@  7  23  SAY  TITLE 

@  9^22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY" 

@  10,22  SAY  "THIS  RELATIONSHIP,  TYPE  '0'  TO" 

@  11,22  SAY  "RETURN  TO  THE  PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

DO  CASE 

CASE  choice  =  'P  PROC  E1 

CLEAR 

USE  P_PROC_E 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
ii 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  P_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  E_NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'S  CONT  P' 

USE  S_CONT_P 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

§4,1  SAY  "RECORD 
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(§4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  S_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  P_NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'P_CONT_M' 

USE  P_CONT_M 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
ii 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  P_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  M_NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'F  CONT  R' 

USE  F_CONT_R 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
n 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  F_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  R_NAME 

@  8,1  SAY  "COMMENTS:" 

DISPLAY  OFF  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 
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*  122130. PRG 

*  MODULE  NAME:  1.2.2.1.3.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.2.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 .2 . 2 . 1 .0 .0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED, 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  count:  KEEPS  TRACK  OF  ACCOUNT  NUMBERS. 

*  option: 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  ON  THE  FIRST  THREE  RELATIONSHIP 

*  RELATIONS 
* 

SET  EXACT  ON 

set  color  to  0/3,3 

set  talk  off 

set  menu  on 

SET  EXACT  ON 

RESTORE  FROM  mem_var 

CLEAR 

@  0,1  SAY  "1.2.2.1.3.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,28  SAY  "RELATIONSHIP  SCREEN  OUTPUT" 

@  5,22  SAY  "THIS  MODULE  WILL  DISPLAY" 

@  7,23  SAY  TITLE 

@  9,22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY" 

@  10,22  SAY  "THIS  RELATIONSHIP,  TYPE  '0'  TO" 

@  11,22  SAY  "RETURN  TO  THE  PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

DO  CASE 

CASE  choice  =  ' R_CONT_E ' 

CLEAR 

USE  R^CONT_E 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
ii 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

(§6,28  SAY  R_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  E  NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ■ TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'U_RESP_S' 

USE  U_RESP_S 

STORE  1  TO  count 

SET  HEALING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
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@  4,11  SAY  count 

store  count  +  1  to  count 

(§6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  U  NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

(§7,28  SAY  S_NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'U_RESP_F' 

USE  U_RESP_F 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
ii 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  U_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

@  7,28  SAY  F_NAME 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

CASE  choice  =  'P_PROD_D' 

USE  P_PROD_D 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

(§2,33  SAY  TITLE 

@  4,1  SAY  "RECORD 
n 

@  4,11  SAY  count 

store  count  +  1  to  count 

@  6,1  SAY  "ACCESS  NAME:" 

@  6,28  SAY  P_NAME 

@  7,1  SAY  "IDENTIFICATION  NAME:" 

(§7,28  SAY  D_NAME 

@  8,1  SAY  "COMMENTS:" 

DISPLAY  OFF  COMMENTS 

ACCEPT  'PRESS  RETURN  TO  SEE  NEXT  TUPLE ' TO  hold 

SKIP 

ENDDO 

RETURN 

ENDCASE 
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*  122140. PRG 

*  MODULE  NAME:  1.2.1.1.4.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2.1 .1 .0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  count    :  USED  TO  KEEP  TRACK  OF  THE  RECORD  NUMBER  BEING  DISPLAYED. 

*  stop,  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

*  OR  THE  PRINTER. 

*  t       :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  OUTPUT  THE  USER,  SYSTEM,  PROGRAM  AND  MODULE 

*  RELATION  FILES  TO  THE  PRINTER. 
* 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.2.1.1.4.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,27  SAY  "RELATIONSHIP  PRINTER  OUTPUT" 

@  6,23  SAY  "THIS  MODULE  WILL  PRINT" 

(§8,24  SAY  TITLE 

@  10,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  11,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

@  12,23  SAY  "MODE" 

@  14,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

(§  15,23  SAY  "THIS  RELATIONSHIP,  TYPE  '0'  TO" 

@  16,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

DO  CASE 

CASE  choice  =  'U_PROC_S' 

USE  U_PROC_S 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

(§0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

(§2,11  SAY  count 

store  count  +  1  to  count 

(§4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  U_NAME 

(§5,1  SAY  "IDENTIFICATION  NAME:" 

(§5,28  SAY  S  NAME 

SKIP 

ENDDO 

CASE  choice  =  ' S_PROC_P ' 

USE  S_PROC_P 

STORE  1  TO  count 

SET  HEADING  OFF 
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DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
it 

@  2,11  SAY  count 

store  count  +  1  to  count 

(§4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  S_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  P_NAME 

SKIP 

ENDDO 

CASE  choice  =  'P_PROC_F' 

USE  P_PROC_F 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  P_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  F_NAME 

SKIP 

ENDDO 

CASE  choice  =  'P_PROC_R' 

USE  P_PROC_R 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  E0F() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
n 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  P_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  R_NAME 

SKIP 

ENDDO 

ENDCASE 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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*   122000. PRG 
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*  122150. PRG 

*  MODULE  NAME:  1.2.1.1.5.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2.1 .1 .0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  count    :  USED  TO  KEEP  TRACK  OF  THE  RECORD  NUMBER  BEING  DISPLAYED. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

OR  THE  PRINTER. 

*  t       :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILE:  P_PROC_E .  S_CONT_P ,  P_CONT_M,  F_CONT_R. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  OUTPUT  THE  NEXT  FOUR  RELATIONSHIP 

*  RELATION  FILES  TO  THE  PRINTER. 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.2.1.1.5.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,27  SAY  "RELATIONSHIP  PRINTER  OUTPUT" 

@  6,23  SAY  "THIS  MODULE  WILL  PRINT" 

@  8,24  SAY  TITLE 

@  10,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  11,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

@  12,23  SAY  "MODE" 

@  14,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

@  15,23  SAY  "THIS  RELATIONSHIP,  TYPE  '0'  TO" 

@  16,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

DO  CASE 

CASE  choice  =  ' P_PROC_E ■ 

USE  P_PROC_E 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

(§2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  P_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  E  NAME 

SKIP 

ENDDO 

CASE  choice  =  'S  CONT  P' 

USE  S_CONT_P 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 
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CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  S_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  P_NAME 

SKIP 

ENDDO 

CASE  choice  =  'P_CONT_M' 

USE  P_CONT_M 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  P_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  M  NAME 

SKIP 

ENDDO 

CASE  choice  =  'F_CONT_R' 

USE  F_CONT_R 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
n 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  F_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  R_NAME 

SKIP 

ENDDO 

ENDCASE 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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*  122160. PRG 

*  MODULE  NAME:  1.2.1.1.6.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.2.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .2.1 .1 .0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  count    :  USED  TO  KEEP  TRACK  OF  THE  RECORD  NUMBER  BEING  DISPLAYED. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

OR  THE  PRINTER. 

*  t        :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  INPUT  FILES:  R_CONT_E ,  U_RESP_S ,  U_RESP_F,  P_PRED_D . 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  OUTPUT  THE  LAST  FOUR  RELATIONSHIP  FILES  TO  THE  PRINTER, 
* 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.2.1.1.6.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,27  SAY  "RELATIONSHIP  PRINTER  OUTPUT" 

@  6,23  SAY  "THIS  MODULE  WILL  PRINT4' 

@  8,24  SAY  TITLE 

@  10,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  11,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

@  12,23  SAY  "MODE" 

@  14,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

@  15,23  SAY  "THIS  RELATIONSHIP,  TYPE  '0'  TO" 

@  16,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

DO  CASE 

CASE  choice  =  ' R_CONT_E ' 

USE  R_CONT_E 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

@  2,1  SAY  "RECORD 
ii 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  R_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

@  5,28  SAY  E  NAME 

SKIP 

ENDDO 

CASE  choice  =  'U  RESP_S' 

USE  U_RESP_S 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 
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CLEAR 

@  0,33  SAY  CHOICE 

(§2,1  SAY  "RECORD 
n 

@  2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

@  4,28  SAY  U_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

(§5,28  SAY  S_NAME 

SKIP 

ENDDO 

CASE  choice  =  'U_RESP_F' 

USE  U_RESP_F 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

(§0,33  SAY  CHOICE 

(§2,1  SAY  "RECORD 
ii 

(§2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:" 

(§4,28  SAY  U  NAME 

(§5,1  SAY  "IDENTIFICATION  NAME:" 

(§5,28  SAY  F_NAME 

SKIP 

ENDDO 

CASE  choice  =  'P_PROD_D' 

USE  P_PROD_D 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,33  SAY  CHOICE 

(§2,1  SAY  "RECORD 
n 

(§2,11  SAY  count 

store  count  +  1  to  count 

@  4,1  SAY  "ACCESS  NAME:4' 

(§4,28  SAY  P_NAME 

@  5,1  SAY  "IDENTIFICATION  NAME:" 

(§5,28  SAY  D_NAME 

SKIP 

ENDDO 

ENDCASE 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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*  130000. PRG 

*  MODULE  NAME:  1.3.0.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  1.3.1.0.0.0,  1.3.2.0.0.0,  1.3.3.0.0.0 

*  1.3.4.0.0.0,  1.3.5.0.0.0,  1.3.6.0.0.0,  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  name:  CONTAINS  THE  ENTITY  RELATION  NAME. 

*  entityl:  CONTAINS  THE  ACCESS-NAME  FOR  THE  ENTITY  RELATION  BEING  ? 

*  QUERIED. 


*  OUTPUT  FILE 

*  DESIGNED  BY 

*  WRITTEN   BY 


MEM_VAR. 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RALATION 

*  AND  ACCESS  NAME  VALUE  THAT  WILL  BE  USED  IN  THE  QUERY 

set  color  to  0/3,3 

set  talk  off 

SET  EXACT  ON 

ERASE  mem_var.mem 

CLEAR 

STORE  .t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.0.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

(§5,11  SAY  "ENTITY-1  RELATIONSHIP  ENTITY" 

@  5,66  SAY  "-2" 

@  8,10  SAY  "1)    USER" 

@  9,10  SAY  "2)    SYSTEM" 

@  10,10  SAY  "3)    PROGRAM" 

@  11,10  SAY  "4)    MODULE" 

@  12,10  SAY  "5)    DOCUMENT" 

@  13,10  SAY  "6)    FILE" 

@  14,10  SAY  "7)    RECORD" 

@  15,10  SAY  "8)    ELEMENT" 

@  16,10  SAY  "9)    RETURN  TO  PREVIOUS  MENU" 

@  17,9  SAY  "10)    RETURN  TO  MAIN  MENU" 

@  18,4  SAY  "  " 

ACCEPT'         ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  'TO  choice 

STORE  . f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'USER'  TO  name 

CASE  choice  =  "2" 

STORE  'SYSTEM'  TO  name 

CASE  choice  =  "3" 

STORE  'PROGRAM'  TO  name 

CASE  choice  =  "4" 

STORE  'MODULE'  TO  name 

CASE  choice  =  "5" 

STORE  'DOCUMENT'  TO  name 

CASE  choice  =  "6" 

STORE  'FILE'  TO  name 

CASE  choice  =  "7" 

STORE  'RECORD'  TO  name 

CASE  choice  =  "8" 

STORE  'ELEMENT'  TO  name 

CASE  choice  =  "9" 

RETURN 

CASE  choice  =  "10" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 
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@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  10  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

CLEAR 

STORE  '  '  TO  entityl 

@  1,1  SAY  "1.3.0.0.0.0" 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,35  SAY  "QUERY  MENU" 

(§6,12  SAY  name 

@  6,31  SAY  "RELATIONSHIP  ENTITY-2" 

@  8,4  SAY  "ENTER  THE  ACCESS-NAME  FOR" 

@  8,31  SAY  name 

@  9,4  SAY  "YOU  WISH  TO  QUERY  ON" 

@  9,26  GET  entityl 

@  10,4  SAY  "AND  PRESS  RETURN" 

READ 

STORE  'Y'  TO  correct 

(§13,3  SAY  "IS  THIS  THE  ENTITY  YOU  WISH  TO  QUERY  ON" 

@  13,44  SAY  ENTITY1 

@  13,56  SAY  "Y  OR  N" 

@  13,64  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

STORE  'USER'  TO  choice 

STORE  100  TO  selection 

SAVE  TO  mem_var 

do  131000 

CASE  choice  =  "2" 

STORE  'SYSTEM'  TO  choice 

STORE  200  TO  selection 

SAVE  TO  mem  var 

do  132000 

CASE  choice  =  "3" 

STORE  'PROGRAM'  TO  choice 

STORE  300  TO  selection 

SAVE  TO  mem  var 

do  133000 

CASE  choice  =  "4" 

STORE  'MODULE'  TO  choice 

STORE  400  TO  selection 

SAVE  TO  mem  var 

do  134000 

CASE  choice  =  "5" 

STORE  'DOCUMENT'  TO  choice 

STORE  500  TO  selection 

SAVE  TO  mem  var 

do  135000 

CASE  choice  =  "6" 

STORE  'FILE'  TO  choice 

STORE  600  TO  selection 

SAVE  TO  mem_var 

do  136000 

CASE  choice  =  "7" 

STORE  'RECORD'  TO  choice 

STORE  700  TO  selection 

SAVE  TO  mem  var 

do  137000  " 

CASE  choice  =  "8" 

STORE  'ELEMENT'  TO  choice 

STORE  800  TO  selection 

SAVE  TO  mem  var 
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do   138000 
ENDCASE 
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*  131000. PRG 

*  MODULE  NAME:  1.3.1.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  1.3.1.1.0.0,  1.3.1.2.0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  entityl  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

*  IN  A  QUERY  STRING. 

*  rel_ship:  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

*  VALUE  IN  A  QUERY  STRING. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  correct  :  USED  AS  TO  HOLD  USER'S  CHOICE  FOR  LOOP  TERMINATION. 

*  SELECTION  :  USED  TO  HOLD  THE  VALUE  IDENTIFYING  WHICH  QUERY  TO  EXECUTE. 

*  INPUT  FILES:  MEM  VAR 


*  OUTPUT  FILES 

*  mem_var .mem 

*  temp.dbf 


MEM_VAR 

USED  TO  TEMPORARILY  STORE  THE  MEMORY  VARIABLE  VALUES 

USED  TO  STORE  THE  RESULT  OF  QUERY  EXECUTION. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP 

*  VALUE  WILL  BE  USED  IN  THE  QUERY 

RESTORE  FROM  mem_var 

ERASE  mem_var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  .t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.1.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

(§5,11  SAY  entityl 

@  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

@  8,32  SAY  "1)    CONTAINS" 

@  9,32  SAY  "2)    IS  RESPONSIBLE  FOR" 

@  10,32  SAY  "3)    RETURN  TO  PREVIOUS  MENU" 

@  11,4  SAY  "  " 

ACCEPT1  ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  'TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'CONTAINS'  TO  rel_ship 

CASE  choice  =  "2" 

STORE  'IS  RESPONSIBLE  FOR'  TO  rel_ship 

CASE  choice  =  "3" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

@  0,1  SAY  "1.3.1.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 

(§5,32  SAY  rel_ship 

@  5,54  SAY  "ENTITY-2" 

STORE  'Y'  TO  correct 


198 


@  10,3  SAY  "IS  THIS  THE  RELATIONSHIP  THAT" 

@  11,3  SAY  "YOU  WISH  TO  QUERY  ON" 

@  11,25  SAY  rel_ship 

@  12,3  SAY  "Y  OR  N" 

@  12,11  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

STORE  'PROCESSES'  TO  choice 

STORE  selection  +  10  TO  selection 

SAVE  TO  mem  var 

do  131100 

CASE  choice  =  "2" 

STORE  'IS  RESPONSIBLE  FOR'  TO  choice 

STORE  selection  +  20  TO  selection 

SAVE  TO  mem  var 

do  131200 

ENDCASE 
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*  131100. PRG 

*  MODULE  NAME:  1.3.1.1.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  1.3.1.0.0.0 

*  LOCAL  VARIABLES  USED: 


*  choice 


*  entityl 
* 

*  entityl2 
* 

*  hold 

*  rel  ship 

*  ~ 

*  t 

*  true 


CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

IN  A  QUERY  STRING. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  SECOND  VALUE 

IN  A  QUERY  STRING. 

USED  TO  STOP  ACTION  FOR  USER  DECISION. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

VALUE  IN  A  QUERY  STRING. 

REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

LOOP. 

USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEMJ/AR. 

*  OUTPUT  FILES:  MEM_VAR.*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RALATION 

*  AND  ACCESS  NAME  VALUE  THAT  WILL  BE  USED  IN  THE  QUERY 

set  color  to  0/3,3 

set  talk  off 

SET  EXACT  ON 

ERASE  mem_var .mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  .t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.1.1.0.0" 

(§  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§  3,35  SAY  "QUERY  MENU" 

(§  5,12  SAY  entityl 

@  5,34  SAY  rel_ship 

(§  5,60  SAY  "ENTITY-2" 

(§  8,54  SAY  "1)    SYSTEM" 

@  9,54  SAY  "2)    RETURN  TO  PREVIOUS" 

@  10,59  SAY  "MENU" 

@  11,4  SAY  "  " 

ACCEPT'         ENTER  YOUR  CHOICE  (1-2)  FROM  ABOVE:  'TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'SYSTEM'  TO  entity2 

CASE  choice  =  "2" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  2  ONLY" 

(§  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

@  0,1  SAY  "1.3.1.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 

(§5,32  SAY  rel  ship 

(§5,59  SAY  entlty2 

STORE  'Y'  TO  correct 

(§8,3  SAY  "IS  THIS  THE  ENTITY  YOU  WISH  TO  QUERY  ON" 
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@  8,44  SAY  entity2 

@  8,56  SAY  "Y  OR  N" 

@  8,64  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

SAVE  TO  mem_var 

SELECT  2 

USE  SYSTEM 

SELECT  1 

USE  U  PROC  S 

JOIN  WITH  SYSTEM  TO  TEMP  FOR  U_NAME  =  entity 1  .AND.  S_NAME  =  ; 

SYSTEM- >ACC_NAME  FIELDS  ID_NAME,  DESCRIPT 

SELECT  2 

USE 

SELECT  1 

USE 

do  139000 

ENDCASE 


201 


*  131200. PRG 

*  MODULE  NAME:  1.3.1.2.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  1.3.1.0.0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  correct  :  CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 

*  CORRECT  OR  NOT. 

*  entityl  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

*  IN  A  QUERY  STRING. 

*  entity2  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  SECOND  VALUE 

*  IN  A  QUERY  STRING. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  rel_ship:  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

*  VALUE  IN  A  QUERY  STRING. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATIONSHIP 

*  THAT  WILL  BE  USED  IN  THE  QUERY 

ERASE  mem  var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  .t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.1.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,11  SAY  "ENTITY-1  RELATIONSHIP  ENTITY" 

@  5,66  SAY  "-2" 

@  8,54  SAY  "1)    SYSTEM" 

@  9,54  SAY  "2)    FILE" 

@  10,54  SAY  "3)    RETURN  TO  PREVIOUS" 

@  11,59  SAY  "MENU" 

@  12,4  SAY  "  " 

ACCEPT1  ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  ' TO  choice 

STORE  . f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'SYSTEM1  TO  name 

CASE  choice  =  "2" 

STORE  'FILE'  TO  name 

CASE  choice  =  "3" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

@  0,1  SAY  "1.3.1.2.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 

@  5,32  SAY  rel_ship 

@  5,59  SAY  name 

STORE  'Y'  TO  correct 
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@  8,3  SAY  "IS  THIS  THE  ENTITY  YOU  WISH  TO  QUERY  ON" 

@  8,44  SAY  name 

@  8,56  SAY  "Y  OR  N" 

@  8,64  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

SELECT  2 

USE  SYSTEM 

SELECT  1 

USE  U  RESP_S 

JOIN  WITH  SYSTEM  TO  TEMP  FOR  U_NAME  =  ENTITY1  .AND.  S_NAME  =  SYSTEM->  ACC_NAME ; 

FIELDS  ID_NAME,  DESCRIPT 

SELECT  2 

USE 

SELECT  1 

USE 

DO  139000 

CASE  choice  =  "2" 

SELECT  2 

USE  FILE 

SELECT  1 

USE  U  RESP  F 

JOIN  WITH  SYSTEM  TO  TEMP  FOR  U_NAME  =  ENTITY1  .AND.  S_NAME  =  SYSTEM->  ACC_NAME ; 

FIELDS  ID_NAME,  DESCRIPT 

SELECT  2 

USE 

SELECT  1 

USE 

DO  139000 

ENDCASE 


203 


*  132000. PRG 

*  MODULE  NAME:  1.3.2.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 


*  correct 


*  entityl 

*  rel  ship 

*  - 

*  true 


CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 

CORRECT  OR  NOT. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

IN  A  QUERY  STRING. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

VALUE  IN  A  QUERY  STRING. 

USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RALATIONSHIP 

*  THAT  WILL  BE  USED  IN  THE  QUERY 

set  color  to  0/3,3 

set  talk  off 

SET  EXACT  ON 

RESTORE  FROM  mem_var 

ERASE  mem_var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N1 

STORE  .t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3. 2. 0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,11  SAY  entityl 

@  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

@  7,29  SAY  "1)    PROCESSES" 

@  9,29  SAY  "2)    IS  PROCESSED  BY" 

@  11,29  SAY  "3)    CONTAINS" 

@  13,29  SAY  "4)    RETURN  TO  PREVIOUS  MENU" 

@  14,4  SAY  "  " 

ACCEPT1         ENTER  YOUR  CHOICE  (1-4)  FROM  ABOVE:  'TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'PROCESSES'  TO  rel  ship 

CASE  choice  =  "2" 

STORE  'IS  PROCESSED  BY'  TO  rel  ship 

CASE  choice  =  "3" 

STORE  'CONTAINS'  TO  rel  ship 

CASE  choice  =  "4" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  4  ONLY" 

(§3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  . t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

@  0,1  SAY  "1.3.2.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 


204 


@  5,32  SAY  rel  ship 

@  5,58  SAY  "ENTITY-2" 

@  7,4  SAY  "IS  THIS  THE  RELATIONSHIP" 

@  8,4  SAY  "THAT  YOU  WISH  TO  QUERY  ON' 

@  8,31  SAY  rel_ship 

@  9,4  SAY  "Y  OR  N" 

@  9,12  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

STORE  selection  +  10  TO  selection 

SAVE  TO  mem  var 

do  132100 

CASE  choice  =  "2" 

STORE  selection  +  20  TO  selection 

SAVE  TO  mem  var 

do  132200 

CASE  choice  =  "3" 

STORE  selection  +  30  TO  selection 

SAVE  TO  mem  var 

do  132300   ~ 

ENDCASE 


205 


*  correct 

*  entityl 

*  rel  ship 

*  true 


*  133000. PRG 

*  MODULE  NAME:  1.3.3.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 
CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 
CORRECT  OR  NOT. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 
IN  A  QUERY  STRING. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 
VALUE  IN  A  QUERY  STRING. 
USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RALATION 

*  AND  ACCESS  NAME  VALUE  THAT  WILL  BE  USED  IN  THE  QUERY 

RESTORE  FROM  mem_var 

ERASE  mem  var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  . t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.3.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,11  SAY  entityl 

@  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

@  7,28  SAY  "1)    PROCESSES" 

(§9,28  SAY  "2)    IS  PROCESSED  BY" 

@  11,28  SAY  "3)    CONTAINS" 

@  13,28  SAY  "4)    PRODUCES" 

@  15,28  SAY  "5)    IS  THE  RESPONISBILITY  OF" 

@  17,28  SAY  "6)    IS  CONTAINED  IN" 

@  19,28  SAY  "7)    RETURN  TO  PREVIOUS  MENU" 

@  20,4  SAY  "  " 

ACCEPT1  ENTER  YOUR  CHOICE  (1-7)  FROM  ABOVE:  'TO  choice 

STORE  . f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'PROCESSES'  TO  rel_ship 

CASE  choice  =  "2" 

STORE  'IS  PROCESSED  BY'  TO  rel_ship  - 

CASE  choice  =  "3" 

STORE  'CONTAINS'  TO  rel_ship 

CASE  choice  =  "4" 

STORE  'PRODUCES'  TO  rel_ship 

CASE  choice  =  "5" 

STORE  'IS  THE  RESPONSIBILITY  OF'  TO  rel  ship 

CASE  choice  =  "6" 

STORE  'IS  CONTAINED  IN'  TO  rel  ship 

CASE  choice  =  "7" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  7  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 
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ENDDO 
CLEAR 


@ 
@ 
@ 
@ 
@ 


1  SAY 
22  SAY 
35  SAY 
.12  SAY 
.32  SAY 
@  5,58  SAY 
@  7,4  SAY 
@  8,4  SAY 
@  8,31  SAY 
@  9,4  SAY 
@  9,12  GET 
READ 
ENDDO 
DO  CASE 
CASE  choice 
STORE  selec 
SAVE  TO  mem 
do  133100 
CASE  choice 
STORE  selec 
SAVE  TO  mem 
do  133200 
CASE  choice 
STORE  selec 
SAVE  TO  mem 
do  133300 
CASE  choice 
STORE  selec 
SAVE  TO  mem 
do  133400 
CASE  choice 
STORE  selec 
SAVE  TO  mem 
do  133500 
CASE  choice 
STORE  selec 
SAVE  TO  mem 
do  133600 
ENDCASE 


1.3.3.0.0.0" 

"INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

"QUERY  MENU" 

entityl 

rel_ship 

"ENTITY-2" 

IS  THIS  THE  RELATIONSHIP" 

THAT  YOU  WISH  TO  QUERY  ON" 

rel_ship 

Y  OR  N" 

correct 


=   Mill 

tion  +  10  TO  selection 
_var 

=  "2" 
tion  +  20  TO  selection 
_var 

=  "3" 
tion  +  30  TO  selection 
_var 

=  "4" 
tion  +  40  TO  selection 
_var 

=  "5" 
tion  +  50  TO  selection 
_var 

=  "6" 
tion  +  60  TO  selection 
var 
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*  entityl 

*  rel_ship 

*  true 


*  134000. PRG 

*  MODULE  NAME:  1.3.4.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  correct  :  CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 
CORRECT  OR  NOT. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 
IN  A  QUERY  STRING. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 
VALUE  IN  A  QUERY  STRING. 
USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

RESTORE  FROM  mem_var 

ERASE  mem_var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  .t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.4.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,11  SAY  entityl 

@  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

@  7,29  SAY  "1)    IS  CONTAINED  IN" 

@  9,29  SAY  "2)    IS  PROCESSED  BY" 

@  11,29  SAY  "3)    IS  THE  RESPONSIBILITY  OF" 

@  13,29  SAY  "4)    RETURN  TO  PREVIOUS  MENU" 

@  14,4  SAY  "  " 

ACCEPT'         ENTER  YOUR  CHOICE  (1-4)  FROM  ABOVE:  'TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'IS  CONTAINED  IN'  TO  rel_ship 

CASE  choice  =  "2" 

STORE  'IS  PRODESSED  BY'  TO  rel  ship 

CASE  choice  =  "3" 

STORE  'IS  THE  RESPONSIBILITY  OF'  TO  rel_ship 

CASE  choice  =  "4" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  4  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

@  0,1  SAY  "1.3.4.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 

(§5,32  SAY  rel  ship 

@  5,58  SAY  "ENTITY-2" 

@  7,4  SAY  "IS  THIS  THE  RELATIONSHIP" 

@  8,4  SAY  "THAT  YOU  WISH  TO  QUERY  ON" 

@  8,31  SAY  rel  ship 

@  9,4  SAY  "Y  OR  N" 
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@  9,12  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

STORE  selection  +  10  TO  selection 

SAVE  TO  mem  var 

do  134100 

CASE  choice  =  "2" 

STORE  selection  +  20  TO  selection 

SAVE  TO  mem  var 

do  134200 

CASE  choice  =  "3" 

STORE  selection  +  30  TO  selection 

SAVE  TO  mem  var 

do  134300 

ENDCASE 
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*  135000. PRG 

*  MODULE  NAME:  1.3.5.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  correct  :  CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 

*  CORRECT  OR  NOT. 

*  entityl  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

*  IN  A  QUERY  STRING. 

*  rel_ship:  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

*  VALUE  IN  A  QUERY  STRING. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM  VAR. 

*  OUTPUT  FILES:  MEH_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY, 
set  color  to  0/3,3 
set  talk  off 

SET  EXACT  ON 

RESTORE  FROM  mem_var 

ERASE  mem  var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  . t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.5.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

(§5,11  SAY  entityl 

@  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

@  8,28  SAY  "1)    IS  PRODUCED  BY"  . 

@  10,28  SAY  "2)    RETURN  TO  PREVIOUS  MENU" 

@  11,4  SAY  "  " 

ACCEPT'         ENTER  YOUR  CHOICE  (1-2)  FROM  ABOVE:  'TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'IS  PRODUCED  BY'  TO  rel_ship 

CASE  choice  =  "2" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  2  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

@  0,1  SAY  "1.3.5.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 

@  5,32  SAY  rel_ship 

@  5,58  SAY  "ENTITY-2" 

@  7,4  SAY  "IS  THIS  THE  RELATIONSHIP" 

@  8,4  SAY  "THAT  YOU  WISH  TO  QUERY  ON" 

@  8,31  SAY  rel_ship 

@  9,4  SAY  "Y  OR  N" 

@  9,12  GET  correct 

READ 

ENDDO 

DO  CASE 
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CASE  choice  =  "1" 

STORE  selection  +  10  TO  selection 

SAVE  TO  mem  var 

do  135100  ~ 

ENDCASE 
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*  136000. PRG 

*  MODULE  NAME:  1.3.6.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

*  LOCAL  VARIABLES  USED: 

*  Choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  correct  :  CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 

*  CORRECT  OR  NOT. 

*  entityl  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

*  IN  A  QUERY  STRING. 

*  rel_ship:  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

*  VALUE  IN  A  QUERY  STRING. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM  VAR. 

*  OUTPUT  FILES:  MEH_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

RESTORE  FROM  mem_var 

ERASE  mem_var .mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  . t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.6.0.0.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§  3,35  SAY  "QUERY  MENU" 

(§  5,11  SAY  entityl 

@  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

@  7,28  SAY  "1)    CONTAINS" 

@  9,28  SAY  "2)    IS  PROCESSED  BY" 

(§  11,28  SAY  "3)    IS  THE  RESPONSIBILITY  OF" 

@  13,28  SAY  "4)    RETURN  TO  PREVIOUS  MENU" 

(§14,4  SAY  "  " 

ACCEPT1         ENTER  YOUR  CHOICE  (1-4)  FROM  ABOVE:  'TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'CONTAINS'  TO  rel_ship 

CASE  choice  =  "2" 

STORE  'IS  PROCESSED  BY'  TO  rel_ship 

CASE  choice  =  "3" 

STORE  'IS  THE  RESPONSIBILITY  OF'  TO  rel_ship 

CASE  choice  =  "4" 

RETURN 

OTHERWISE 

CLEAR 

(§2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  4  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

(§  0,1  SAY  "1.3.6.0.0.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§3,35  SAY  "QUERY  MENU" 

(§5,12  SAY  entityl 

(§5,32  SAY  rel  ship 

@  5,58  SAY  "ENTITY-2" 

(§7,4  SAY  "IS  THIS  THE  RELATIONSHIP" 

(§  8,4  SAY  "THAT  YOU  WISH  TO  QUERY  ON" 

@  8,31  SAY  rel_ship 

(§9,4  SAY  "Y  OR  N" 
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@  9,12  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

STORE  selection  +  10  TO  selection 

SAVE  TO  mem  var 

do  136100 

CASE  choice  =  "2" 

STORE  selection  +  20  TO  selection 

SAVE  TO  mem_var 

do  136200 

CASE  choice  =  "3" 

STORE  selection  +  30  TO  selection 

SAVE  TO  mem  var 

do  136300 

ENDCASE 
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*  137000. PRG 

*  MODULE  NAME:  1.3.7.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  correct  :  CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 

*  CORRECT  OR  NOT. 

*  entityl  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

*  IN  A  QUERY  STRING. 

*  rel_ship:  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

*  VALUE  IN  A  QUERY  STRING. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

RESTORE  FROM  mem_var 

ERASE  mem_var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  . t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.7.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§  3,35  SAY  "QUERY  MENU" 

(§5,11  SAY  entityl 

<§  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

<§  7,27  SAY  "1)    CONTAINS" 

@  9,27  SAY  "2)    IS  CONTAINED  IN" 

@  11,27  SAY  "3)    IS  PROCESSED  BY" 

@  13,27  SAY  "4)    IS  THE  RESPONSIBILITY  OF" 

(§  15,27  SAY  "5)    RETURN  TO  PREVIOUS  MENU" 

@  16,1  SAY  "  " 

ACCEPT1         ENTER  YOUR  CHOICE  (1-5)  FROM  ABOVE :' TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'CONTAINS'  TO  rel_ship 

CASE  choice  =  "2" 

STORE  'IS  CONTAINED  IN'  TO  rel_ship 

CASE  choice  =  "3" 

STORE  'IS  PROCESSED  BY'  TO  rel_ship 

CASE  choice  =  "4" 

STORE  'IS  THE  RESPONSIBILITY  OF'  TO  rel_ship 

CASE  choice  =  "5" 

RETURN 

OTHERWISE 

CLEAR 

(§  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  5  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

(§0,1  SAY  "1.3.7.0.0.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 

(§5,32  SAY  rel_ship 

(§5,58  SAY  "ENTITY-2" 

@  7,4  SAY  "IS  THIS  THE  RELATIONSHIP" 
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@  8,4  SAY  "THAT  YOU  WISH  TO  QUERY  ON" 

@  8,31  SAY  rel_ship 

@  9,4  SAY  "Y  OR  N" 

@  9,12  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

STORE  selection  +  10  TO  selection 

SAVE  TO  mem_var 

do  137100 

CASE  choice  =  "2" 

STORE  selection  +  20  TO  selection 

SAVE  TO  mem_var 

do  137200 

CASE  choice  =  "3" 

STORE  selection  +  30  TO  selection 

SAVE  TO  mem  var 

do  137300 

CASE  choice  =  "4" 

STORE  selection  +  40  TO  selection 

SAVE  TO  mem  var 

do  137400 

ENDCASE 
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*  138000. PRG 

*  MODULE  NAME:  1.3.8.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  correct  :  CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 

*  CORRECT  OR  NOT. 

?  entity?  ?  CONTAIN?  TH?  CHARACTE?  STRIN?  THA?  REPRESENT?  TH?  FIRS?  VALUE 

*  IN  A  QUERY  STRING. 

?  entity2  ?  CONTAIN?  TH?  CHARACTE?  STRIN?  THA?  REPRESENT?  TH?  SECOND  VALUE 

*  IN  A  QUERY  STRING. 

*  rel_ship:  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

*  VALUE  IN  A  QUERY  STRING. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

RESTORE  FROM  mem_var 

ERASE  mem_var.mem 

CLEAR 

STORE  'N'  TO  correct 

DO  WHILE  correct  =  'N' 

STORE  .t.  TO  true 

do  while  true 

CLEAR 

@  0,1  SAY  "1.3.8.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,11  SAY  entityl 

@  5,33  SAY  "RELATIONSHIP  ENTITY-2" 

@  7,27  SAY  "1)    IS  CONTAINED  IN" 

(§9,27  SAY  "2)    IS  PROCESSED  BY" 

@  11,27  SAY  "3)    IS  THE  RESPONSIBILITY  OF" 

@  13,27  SAY  "4)    RETURN  TO  THE  PREVIOUS  MENU" 

@  14,4  SAY  "  " 

ACCEPT1         ENTER  YOUR  CHOICE  (1-4)  FROM  ABOVE:  'TO  choice 

STORE  .f.  TO  true 

DO  CASE 

CASE  choice  =  "1" 

STORE  'IS  CONTAINED  IN'  TO  rel_ship 

CASE  choice  =  "2" 

STORE  'IS  PROCESSED  BY'  TO  rel_ship 

CASE  choice  =  "3" 

STORE  'IS  THE  RESPONSIBILITY  OF'  TO  rel_ship 

CASE  choice  =  "4" 

RETURN 

OTHERWISE 

CLEAR 

@  2,14  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  4  ONLY" 

@  3,14  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

STORE  .t.  TO  true 

ENDCASE 

ENDDO 

CLEAR 

@  0,1  SAY  "1.3.8.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,35  SAY  "QUERY  MENU" 

@  5,12  SAY  entityl 

@  5,32  SAY  rel_ship 

@  5,58  SAY  "ENTITY-2" 

@  7,4  SAY  "IS  THIS  THE  RELATIONSHIP" 

@  8,4  SAY  "THAT  YOU  WISH  TO  QUERY  ON" 
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@  8,31  SAY  rel  ship 

@  9,4  SAY  "Y  OR  N" 

(§9,12  GET  correct 

READ 

ENDDO 

DO  CASE 

CASE  choice  =  "1" 

STORE  selection  +  10  TO  selection 

SAVE  TO  mem  var 

do  138100 

CASE  choice  =  "2" 

STORE  selection  +  20  TO  selection 

SAVE  TO  mem  var 

do  138200 

CASE  choice  =  "3" 

STORE  selection  +  30  TO  selection 

SAVE  TO  mem_var 

do  138300 

ENDCASE 


217 


*  139000. PRG 

*  MODULE  NAME:  1.3.9.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.1.1.0.0   THRU  1.3.8.3.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 .3 . 1 . 1 .0 . 0   THRU  1.3.8.3.0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  true     :  USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  option   :  USED  TO  HOLD  THE  VALUE  REPRESENTING  THE  CHOICE  OF  PRINTER  OR 

*  SCREEN  OUTPUT. 

*  INPUT  FILES:  MEM  VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHETHER  THE  OUTPUT  WILL  BE 

*  DISPLAYED  ON  THE  SCREEN  OR  PRINTED. 
* 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

STORE  . t.  TO  TRUE 

do  while  TRUE 

CLEAR 

@  0,1  SAY  "1.3.9.0.0.0" 

RESTORE  FROM  mem_var 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,34  SAY  "QUERY  OUTPUT" 

@  8,23  SAY  "LISTED  BELOW  ARE  THE  CHOICES  FOR  HOW" 

(§9,23  SAY  "YOU  CAN  HAVE  THE  QUERY" 

@  11,24  SAY  entityl 

@  11,38  SAY  rel  ship 

@  11,57  SAY  entity2 

@  13,23  SAY  "DISPLAYED." 

@  15,28  SAY  "1)   SCREEN  OUTPUT" 

@  17,28  SAY  "2)   PRINTER  OUPUT" 

@  19,28  SAY  "3)   RETURN  TO  PREVIOUS  MENU" 

@  20,1  SAY  "  " 

ACCEPT1  ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE  'TO  option 

ERASE  mem_var .mem 

SAVE  TO  mem_var 

DO  CASE 

CASE  option  =  ' 1 ' 

DO  139100 

CASE  option  =  '2' 

DO  139200 

CASE  option  =  '3' 

RETURN 

OTHERWISE 

CLEAR 

@  0,27  SAY  option 

@  0,34  SAY  "IS  NOT  A  VALID  CHOICE" 

@  1,26  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY" 

@  2,26  SAY  "PRESS  RETURN  AND  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 
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*  139100. PRG 

*  MODULE  NAME:  1.3.9.1.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.9.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 .3 .9 .0 .0 .0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

*  OR  THE  PRINTER. 

*  stop     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  t       :  REPRESTENTS  THE  BOOLEAN  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  entityl  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 

*  IN  A  QUERY  STRING. 

*  entity2  :  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  SECOND  VALUE 

*  IN  A  QUERY  STRING. 

*  rel  ship:  CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 

*  VALUE  IN  A  QUERY  STRING. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  WILL  DISPLAY  THE  RESULTS  OF  THE  QUERY  ON  THE  SCREEN. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  THE  RESULTS  OF  THE  QUERY 

*  ON  THE  SCREEN. 

*  PROGRAM  AND  MODULE  RELATIONS 

* 

RESTORE  FROM  mem_var 

CLEAR 

@  0,1  SAY  "1.3.9.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,30  SAY  "QUERY  SCREEN  OUTPUT" 

@  5,22  SAY  "THIS  MODULE  WILL  DISPLAY  THE  RESULTS  OF" 

@  7,21  SAY  entityl 

@  7,38  SAY  rel  ship 

(§7,59  SAY  entity2 

(§9,22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY  THIS  RELATION," 

@  10,22  SAY  "TYPE  '0'  TO  RETURN  TO  THE  PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

CLEAR 

USE  TEMP 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

CLEAR 

@  0,1  SAY  "1.3.9.1.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,32  SAY  "QUERY  RESULTS  FOR" 

@  5,21  SAY  entityl 

@  5,38  SAY  rel  ship 

@  5,59  SAY  entity2 

USE  TEMP 

STORE  1  TO  count 

SET  HEADING  OFF 

DO  WHILE  .NOT.  EOF() 

@  7,1  SAY  "RECORD  #" 

@  7,9  SAY  count 

@  9,1  SAY  "  " 

store  count  +  1  to  count 

@  10,4  SAY  "IDENTIFICATION  NAME:" 
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@  10,31  SAY  ID_NAME 

(§12,4  SAY  "DESCRIPTION:" 

@  12,21  SAY  descript 

@  17,4  SAY  "  " 

WAIT  TO  hold 

SKIP 

ENDDO 

RETURN 
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*  correct 
* 

*  entityl 

*  entity2 

*  rel  ship 

*  - 

*  true 


*  139200. PRG 

*  MODULE  NAME:  1.3.9.2.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.3.9.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .3 .9 .0 .0 . 0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 
CONTAINS  USER  RESPONSE  AS  TO  WHETHER  THE  DISPLAYED  VALUE  IS 
CORRECT  OR  NOT. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  FIRST  VALUE 
IN  A  QUERY  STRING. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  SECOND  VALUE 
IN  A  QUERY  STRING. 

CONTAINS  THE  CHARACTER  STRING  THAT  REPRESENTS  THE  RELATIONSHIP 
VALUE  IN  A  QUERY  STRING. 
USED  AS  A  BOOLEAN  VALUE  IN  LOOPS. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  OUTPUT  THE  QUERY  TO  THE  PRINTER. 

SET  EXACT  ON 

set  color  to  0/3,3 

set  talk  off 

set  menu  on 

SET  EXACT  ON 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.3.9.2.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,29  SAY  "QUERY  PRINTER  OUTPUT" 

(§6,23  SAY  "THIS  MODULE  WILL  PRINT  QUERY" 

(§8,20  SAY  entityl 

@  8,37  SAY  rel_ship 

@  8,56  SAY  name 

@  10,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  11,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

@  12,23  SAY  "MODE" 

@  14,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

@  15,23  SAY  "THIS  RELATION,  TYPE  '0'  TO" 

@  16,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

USE  TEMP 

STORE  1  TO  count 

DO  WHILE  .NOT.  EOF() 

@  29,1  SAY  "1.3.9.2.0.0" 

@  30,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  32,32  SAY  "RESULTS  FOR  QUERY" 

@  34,20  SAY  entityl 

@  34,37  SAY  rel  ship 

@  34,56  SAY  name 

@  40,1  SAY  "RECORD  #" 

@  40,11  SAY  count 
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store  count  +  1  to  count 

@  42,3  SAY  "IDENTIFICATION  NAME:" 

@  42,30  SAY  ID_NAME 

@  44,3  SAY  "DESCRIPTION:" 

@  44,19  SAY  descript 

SKIP 

ENDDO 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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140000. PRG 

MODULE  NAME:  1.4.0.0.0.0 

INPUT  FILES:  NONE 

OUTPUT  FILES:  NONE 

ROUTINES  THAT  CALL  THE  MODLUE :  MAIN 

ROUTINES  THAT  THE  MODULE  CALLS : 1 . 1 . 1 

1.1.4.0.0.0,  1.1.5.0.0.0,  MAIN. 

LOCAL  VARIABLES  USED 


,0.0.0,  1.1.2.0.0.0,  1.1.3.0.0.0, 


choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

t:  REPRESTENTS  NO  VALUE  AT  ALL. 

hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 
DESIGNED  BY:   ROBERT  A.  KIRSCH  II 
WRITTEN   BY:   ROBERT  A.  KIRSCH  II 
BASIC  FUNCTION  OF  MODULE: 

THIS  PROGRAM  ALLOWS  FOR  THE  MAINTENANCE  OF  ENTITY  SCHEMA, 
AND  RELATIONSHIP  SCHEMA. 


•  t. 


do  while 
CLEAR 

@  0,1  SAY  "1.4.0.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM1 
"MAINTENANCE   MENU" 

MODIFY  ENTITY  SCHEMA" 
MODIFY  RELATIONSHIP  SCHEMA" 
RETURN  TO  MAIN  MENU" 


"D 

"2) 


ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  '  TO  choice 


@  3,31  SAY 

@  6,22  SAY 

@  8,22  SAY 

@  10,22  SAY  "3) 

@  11,1  SAY  "  " 

ACCEPT  ' 

DO  CASE 

CASE  choice  =  "1" 

do  141000 

CASE  choice  =  "2" 

DO  142000 

CASE  choice  =  "3" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

(§2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY' 

@  3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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141000. PRG 

MODULE  NAME:  1.4.1.0.0.0 

INPUT  FILES:  NONE 

OUTPUT  FILES:  NONE 

ROUTINES  THAT  CALL  THE  MODLUE :  1.4.0.0.0.0 

ROUTINES  THAT  THE  MODULE  CALLS:  MAIN 

LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

t:  REPRESTENTS  NO  VALUE  AT  ALL. 

hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 
INPUT  FILES:  MEM_VAR,  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD, 
ELEMENT . 

USER,  SYSTEM,  PROGRAM,  MODULE 


OUTPUT  FILES 


DESIGNED  BY: 
WRITTEN   BY; 


MEM_VAR , 
ELEMENT 
ROBERT  A, 
ROBERT  A, 


DOCUMENT,  FILE,  RECORD, 


KIRSCH  II 

KIRSCH  II 
BASIC  FUNCTION  OF  MODULE: 

THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATION 
TO  MODIFY. 


do  while  .t. 

CLEAR 

@  0,1  SAY  "1.4.1.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,31  SAY  "MODIFY  ENTITY  SCHEMA" 

USER  6) 

SYSTEM  7) 

PROGRAM  8) 

MODULE  9) 

DOCUMENT  10) 


"D 
"2) 


@  6,15  SAY 
@  8,15  SAY 
@  10,15  SAY  "3) 
@  12,15  SAY  "4) 
@  14,15  SAY  "5) 
@  16,1  SAY  "  " 
ACCEPT' 
DO  CASE 

CASE  choice  =  "1" 
USE  USER 
MODIFY  STRUCTURE 
CASE  choice  =  "2" 
USE  SYSTEM 
MODIFY  STRUCTURE 
CASE  choice  =  "3" 
USE  PROGRAM 
MODIFY  STRUCTURE 
CASE  choice  =  "4" 
USE  MODULE 
MODIFY  STRUCTURE 
CASE  choice  =  "5" 
USE  DOCUMENT 


FILE" 

RECORD" 
ELEMENT" 

RETURN  TO  PREVIOUS  MENU" 
RETURN  TO  MAIN  MENU" 


ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  'TO  choice 
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MODIFY  STRUCTURE 

CASE  choice  =  "6" 

USE  FILE 

MODIFY  STRUCTURE 

CASE  choice  =  "7" 

USE  RECORD 

MODIFY  STRUCTURE 

CASE  choice  =  "8" 

USE  ELEMENT 

MODIFY  STRUCTURE 

CASE  choice  =  "9" 

RETURN 

CASE  choice  =  "10" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  10  ONLY" 

@  3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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142000. PRG 

MODULE  NAME:  1.4.2.0.0.0 

ROUTINES  THAT  CALL  THE  MODLUE :  1.4.0.0.0.0 
ROUTINES  THAT  THE  MODULE  CALLS :1 .4 . 0 .0 .0 .0 ,  MAIN 

LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

t:  REPRESTENTS  NO  VALUE  AT  ALL. 
hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 
INPUT  FILES:  MEM_VAR  ,  U_C0NTS ,  U_C0NT_S , 

U_C0NT_P,  P_PR0C_F,  P_PR0C_R, 

P_PR0C_R.  P_PR0C_E.  S_CONT_P,  P_C0NT_M,  F_C0NT_R,  R_C0NT_E , 

U_RESP_S,  U_RESP_F,  P_PRED_D . 
OUTPUT  FILES:  MEM_VAR,  ELEMENT,  U_CONTS ,  U_CONT_S , 

U_CONT_P,  P_PROC_F,  P_PROC_R, 

P_PROC_R.  P_PROC_E.  S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E , 

U_RESP_S,  U_RESP_F,  P_PRED_D. 

DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

BASIC  FUNCTION  OF  MODULE: 

THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  RELATIONSHIP 

SCHEMA  HE  WOULD  LIKE  TO  MODISY. 


t. 


do  while 

CLEAR 

SET  MENU  ON 

@  1,1  SAY  "1.4.2.0.0.0" 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM 

@  4,25  SAY  "RELATIONSHIP  SCHEMA  MAINTENANCE" 

@  6,9  SAY  "1)    USER  CONTAINS  SYSTEM 

@  6,64  SAY  "ORDS" 

@  8,9  SAY  "2)    SYSTEM  CONTAINS  PROGRAM 

@  8,64  SAY  "LEMENT" 

@  10,9  SAY  "3)    PROGRAM  PROCESSES  FILE 

@  10,64  SAY  "FOR  SYSTEM" 

@  12,9  SAY  "4)    PROGRAM  PROCESSES  RECORD 

@  12,64  SAY  "FOR  FILE" 

@  14,9  SAY  "5)    PROGRAM  PROCESSES  ELEMENT 

@  14,64  SAY  "DOCUMENT" 


@  16,9  SAY  "6)    SYSTEM  CONTAINS  PROGRAM 

@  16,64  SAY  "S  MENU" 

@  18,9  SAY  "7)    PROGRAM  CONTAINS  MODULE 

@  18,64  SAY  "NU" 

@  19,1  SAY  "  " 

ACCEPT  ' 

DO  CASE 

CASE  choice  =  "1" 


8) 

9) 

10) 

ID 

12) 

13) 

14) 


FILE  CONTAINS  REC" 


RECORD  CONTAINS  E" 


USER  RESPONSIBLE" 


USER  RESPONSIBLE' 


PROGRAM  PRODUCES" 


RETURN  TO  PREVIOU" 


RETURN  TO  MAIN  ME" 


ENTER  YOUR  CHOICE  (1-10)  FROM  ABOVE:  '  TO  choice 
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USE  U_PROC_S 

MODIFY  STRUCTURE 

CASE  choice  =  "2" 

USE  S_PROC_P 

MODIFY  STRUCTURE 

CASE  choice  =  "3" 

USE  P_PROC_F 

MODIFY  STRUCTURE 

CASE  choice  =  "4" 

USE  P_PROC_R 

MODIFY  STRUCTURE 

CASE  choice  =  "5" 

USE  P_PROC_E 

MODIFY  STRUCTURE 

CASE  choice  =  "6" 

USE  S_CONT_P 

MODIFY  STRUCTURE 

CASE  choice  =  "7" 

USE  P_CONT_M 

MODIFY  STRUCTURE 

CASE  choice  =  "8" 

USE  F_CONT_R 

MODIFY  STRUCTURE 

CASE  choice  =  "9" 

USE  R_CONT_E 

MODIFY  STRUCTURE 

CASE  choice  =  "10" 

USE  U_RESP_S 

MODIFY  STRUCTURE 

CASE  choice  =  "11" 

USE  U_RESP_F 

MODIFY  STRUCTURE 

CASE  choice  =  "12" 

USE  P_PROD_D 

MODIFY  STRUCTURE 

CASE  choice  =  "13" 

RETURN 

CASE  choice  =  "14" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  1,21  SAY  choice 

@  1,28  SAY  "IS  NOT  A  VALID  CHOICE" 

@  2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  14  ONLY" 

(§3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 
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ENDCASE 

ENDDO 

RETURN 
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*  150000. prg 

*  MODULE  NAME:  1.5.0.0.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  MAIN 

*  ROUTINES  THAT  THE  MODULE  CALLS:  MAIN. 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED, 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  PROGRAM  ALLOWS  FOR  THE  THE  SELECTION  OF  WHICH  TYPE  OF 

*  SCHEMA  WILL  BE  OUTPUT. 

do  while  .t. 

CLEAR 

@  0,1  SAY  "1.5.0.0.0.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§3,34  SAY  "SCHEMA  OUTPUT" 

@  6,22  SAY  "1)    ENTITY" 

(§  8,22  SAY  "2)    RELATIONSHIP" 

@  10,22  SAY  "3)    RETURN  TO  MAIN  MENU" 

@  11,22  SAY  "  " 

ACCEPT  '         ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE:  'TO  choice 

DO  CASE 

CASE  choice  =  "1" 

do  151000 

CASE  choice  =  "2" 

DO  152000 

CASE  choice  =  "3" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

(§2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY" 

(§3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  121000. PRG 

*  MODULE  NAME:  1.5.1.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.5.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 . 5 .0 .0 .0 .0 ,  1.5.1.1.0.0  MAIN 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN  BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  ENTITY  RELATION 

*  TO  OUTPUT. 

SET  EXACT  ON 

set  color  to  0/3,3 

set  talk  off 

CLEAR 

do  while  .t. 

ERASE  mem_var.mem 

CLEAR 

(§  0,1  SAY  "1.5.1.0.0.0" 

(§1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,29  SAY  "  ENTITY  SCHEMA  OUTPUT" 

FILE" 
RECORD" 
ELEMENT" 

RETURN  TO  PREVIOUS  MENU" 
RETURN  TO  MAIN  MENU" 


@  6,15  SAY  "1) 

USER 

6) 

@  8,15  SAY  »2) 

SYSTEM 

7) 

(§  10,15  SAY  "3) 

PROGRAM 

8) 

(§  12,15  SAY  "4) 

MODULE 

9) 

(§  14,15  SAY  "5) 

DOCUMENT 

10) 

(§15,1  SAY  "  " 

ACCEPT' 

ENTER  YOUR  CHOICE 

(1-10 

DO  CASE 

CASE  choice  =  H: 

L" 

store  'USER'  to 

choice 

save  to  mem_var 

do  151100 

CASE  choice  =  »; 

Z" 

store  'SYSTEM1 

to  choice 

save  to  mem_var 

DO  151100 

CASE  choice  =  ": 

3" 

store  'PROGRAM' 

to  choice 

save  to  mem  var 
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DO  151100 

CASE  choice  =  "4" 

store  'MODULE'  to  choice 

save  to  mem_var 

DO  151100 

CASE  choice  =  "5" 

store  'DOCUMENT'  to  choice 

save  to  mem_var 

DO  151100 

CASE  choice  =  "6" 

store  'FILE'  to  choice 

save  to  mem_var 

DO  151100 

CASE  choice  =  "7" 

store  'RECORD'  to  choice 

save  to  mem_var 

DO  151100 

CASE  choice  =  "8" 

store  'ELEMENT'  to  choice 

save  to  mem_var 

DO  151100 

CASE  choice  =  "9" 

RETURN 

CASE  choice  =  "10" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  1,23  SAY  choice 

@  1,31  SAY  "IS  NOT  A  VALID  CHOICE" 

@  2,18  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  10  ONLY' 

@  3,18  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  151100. PRG 

*  MODULE  NAME:  1.5.1.1.0.0 

*  INPUT  FILES:  NONE 

*  OUTPUT  FILES:  NONE 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.5.1.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 . 5 . 1 .0 .0 .0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  count:  KEEPS  TRACK  OF  ACCOUNT  NUMBERS. 

*  ,   option:  USED  TO  SELECT  PRINTER  OR  SCREEN. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHETHER  THE  OUTPUT  WILL  BE 

*  DISPLAYED  ON  THE  SCREEN  OR  PRINTED. 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

STORE  . t.  TO  TRUE 

do  while  TRUE 

CLEAR 

@  0,1  SAY  "1.5.1.1.0.0" 

RESTORE  FROM  mem_var 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,29  SAY  "ENTITY  SCHEMA  OUTPUT" 

(§8,23  SAY  "LISTED  BELOW  ARE  THE  CHOICES  FOR  HOW" 

(§9,23  SAY  "YOU  CAN  HAVE  THE  RELATION" 

@  9,50  SAY  CHOICE 

@  10,23  SAY  "DISPLAYED." 

@  12,28  SAY  "1)   SCREEN  OUTPUT" 

@  14,28  SAY  "2)   PRINTER  OUPUT" 

@  16,28  SAY  "3)   RETURN  TO  PREVIOUS  MENU" 

@  17,1  SAY  "  " 

ACCEPT'  ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE  'TO  option 

ERASE  mem_var .mem 

SAVE  TO  mem_var 

DO  CASE 

CASE  option  =  ' 1 ' 

DO  CASE 

CASE  CHOICE  =  'USER' 
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DO  151110 

CASE  choice  =  'SYSTEM' 

DO  151110 

CASE  CHOICE  =  'PROGRAM' 

DO  151110 

CASE  choice  =  'MODULE' 

DO  151110 

CASE  CHOICE  =  'DOUCMENT' 

DO  151110 

CASE  choice  =  'FILE' 

DO  151110 

CASE  CHOICE  =  'RECORD' 

DO  151110 

CASE  choice  =  'ELEMENT' 

DO  151110 

ENDCASE 

CASE  option  =  ' 2 ' 

DO  CASE 

CASE  CHOICE  =  'USER' 

DO  151120 

CASE  choice  =  'SYSTEM' 

DO  151120 

CASE  CHOICE  =  'PROGRAM' 

DO  151120 

CASE  choice  =  'MODULE' 

DO  151120 

CASE  CHOICE  =  'DOCUMENT* 

DO  151120 

CASE  choice  =  'FILE' 

DO  151120 

CASE  CHOICE  =  'RECORD' 

DO  151120 

CASE  choice  =  'ELEMENT' 

DO  151120 

ENDCASE 

CASE  option  =  '3' 

RETURN 

OTHERWISE 

CLEAR 

@  0,27  SAY  option 

@  0,34  SAY  "IS  NOT  A  VALID  CHOICE" 

@  1,26  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY" 

WAIT  TO  stop 

ENDCASE 

ENDDO 
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*  151110. PRG 

*  MODULE  NAME:  1.5.1.1.1.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.5.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .5.1.1 .0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  count    :  USED  TO  KEEP  TRACK  OF  THE  RECORD  NUMBER  BEING  DISPLAYED. 

*  Stop     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  t        :  REPRESTENTS  THE  BOOLEAN  FALUE  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP . 

*  INPUT  FILES:  MEM_VAR . 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  ON  THE  SCREEN  ENTITY  RELATION  SCHEMA. 

SET  EXACT  ON 

set  color  to  0/3,3 

set  talk  off 

set  menu  on 

SET  EXACT  ON 

RESTORE  FROM  mem_var 

CLEAR 

@  0,1  SAY  "1.5.1.1.1.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,26  SAY  "  ENTITY  SCHEMA  SCREEN  OUTPUT" 

@  5,22  SAY  "THIS  MODULE  WILL  DISPLAY" 

@  5,48  SAY  choice 

(§7,22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY" 

@  8,22  SAY  "THIS  SCHEMA,  TYPE  '0'  TO" 

@  9,22  SAY  "RETURN  TO  THE  PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

@  1,1  SAY  "1.5.1.1.1.0" 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,30  SAY  "RELATION  SCHEMA  FOR" 

(§6,37  SAY  choice 
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2  9,1  "  " 

DO  CASE 

CASE  choice  =  'USER' 

CLEAR 

USE  USER 

DISPLAY  STRUCTURE 

WAIT  TO  stop 

RETURN 

CASE  choice  =  'SYSTEM' 

CLEAR 

USE  SYSTEM 

DISPLAY  STRUCTURE 

WAIT  TO  stop 

RETURN 

CASE  choice  =  'PROGRAM' 

CLEAR 

USE  PROGRAM 

DISPALY  STRUCTURE 

WAIT  TO  stop 

RETURN 

CASE  choice  =  'MODULE' 

CLEAR 

USE  MODULE 

DISPLAY  STRUCTURE 

WAIT  TO  stop 

RETURN 

CASE  choice  =  'DOCUMENT 

CLEAR 

USE  DOCUMENT 

DISPLAY  STRUCTURE 

WAIT  TO  stop 

RETURN 

CASE  choice  =  lFILE' 

CLEAR 

USE  FILE 

DISPLAY  STRUCTURE 

WAIT  TO  stop 

RETURN 

CASE  choice  =  'RECORD' 

CLEAR 

USE  RECORD 

DISPALY  STRUCTURE 

WAIT  TO  stop 

RETURN 

CASE  choice  =  'ELEMENT' 

CLEAR 
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USE  ELEMENT 
DISPLAY  STRUCTURE 
WAIT  TO  stop 
RETURN 
ENDCASE 
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*  151120. PRG 

*  MODULE  NAME:  1.5.1.1.2.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.5.1.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS :1 .5.1 .1 .0.0 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  count    :  USED  TO  KEEP  TRACK  OF  THE  RECORD  NUMBER  BEING  DISPLAYED. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  option   :  CONTAINS  THE  USER'S  CHOICE  ON  WHETHER  TO  OUTPUT  TO  THE  SCREEN 

*  OR  THE  PRINTER. 

*  t       :  REPRESTENTS  THE  BOOLEAN  FALUE  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP . 

*  INPUT  FILES:  MEM_VAR,  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT,  FILE,  RECORD, 

*  ELEMENT . 

*  OUTPUT  FILES:  MEM_VAR  USER,  SYSTEM,  PROGRAM,  MODULE,  DOCUMENT, " FILE ,  RECORD, 

*  ELEMENT. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  OUTPUT  THE  USER,  SYSTEM,  PROGRAM  AND  MODULE 

*  RELATION  FILES  TO  THE  PRINTER. 
* 

SET  EXACT  ON 

set  color  to  0/3,3 

set  talk  off 

set  menu  on 

SET  EXACT  ON 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

@  0,1  SAY  "1.5.1.1.2.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§3,27  SAY  "ENTITY  SCHEMA  PRINTER  OUTPUT" 

@  5,23  SAY  "THIS  MODULE  WILL  PRINT" 

@  5,47  SAY  choice 

@  7,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  8,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

@  9,23  SAY  "MODE" 

@  11,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

@  12,23  SAY  "THIS  SCHEMA,  TYPE  '0'  TO" 

@  13,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 
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DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

@  1,1  SAY  "1.5.1.1.2.0" 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,31  SAY  "RELATION  SCHEMA  FOR" 

@  6,35  SAY  choice 

@  8,1   SAY  "  '" 

DO  CASE 

CASE  choice  =  'USER' 

USE  USER 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'SYSTEM' 

USE  SYSTEM 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'PROGRAM' 

USE  PROGRAM 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'MODULE' 

USE  MODULE 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'DOCUMENT' 

USE  DOCUMENT 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'FILE' 

USE  FILE 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'RECORD' 

USE  RECORD 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'ELEMENT' 

USE  ELEMENT 

DISPLAY  STRUCTURE  TO  PRINT 

ENDCASE 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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*  152000. PRG 

*  MODULE  NAME:  1.5.2.0.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.1.0.0.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS  :TBD,  MAIN 

*  LOCAL  VARIABLES  USED: 

*  choice   :  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED.  MAY  ALSO  CONTAIN  THE 

*  CHARACTER  STRING  THAT  IDENTIFIES  THE  RELATION  BEING  ADDED  TO, 

*  MODIFIED,  DELETED  FROM  OR  OUTPUT. 

*  hold     :  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  t        :  REPRESTENTS  THE  BOOLEAN  FALUE  TRUE  IS  USED  TO  CREATE  A  CONTINUES 

*  LOOP. 

*  title    :  CONTAINS  THE  CHARACTER  STRING  THAT  DESCRIBES  THE  RELATIONSHIP 

*  BEING  ADDED  TO,  DELETED  FROM  OR  OUTPUT. 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  RELATIONSHIP  HE  WOULD 

*  LIKE  TO  DISPLAY  THE  SCHEMA  OF. 

SET  EXACT  ON 

set  color  to  0/3,3 

set  talk  off 

CLEAR 

do  while  .t. 

ERASE  mem_var .mem 

CLEAR 

@  0,1  SAY  "1.5.2.0.0.0" 

(§  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,27  SAY  "RELATIONSHIP  SCHEMA  OUTPUT" 

@  5,9  SAY  "1)    USER  CONTAINS  SYSTEM         8)    FILE  CONTAINS  REC" 

(§5,64  SAY  "ORDS" 

@  7,9  SAY  "2)    SYSTEM  CONTAINS  PROGRAM      9)    RECORD  CONTAINS  E" 

(§7,64  SAY  "LEMENT" 

(§9,9  SAY  "3)    PROGRAM  PROCESSES  FILE      10)    USER  RESPONSIBLE" 

@  9,64  SAY  "FOR  SYSTEM" 

(§11,9  SAY  "4)    PROGRAM  PROCESSES  RECORD    11)    USER  RESPONSIBLE" 

(§  11,64  SAY  "FOR  FILE" 

@  13,9  SAY  "5)    PROGRAM  PROCESSES  ELEMENT   12)    PROGRAM  PRODUCES" 

(§  13,64  SAY  "DOCUMENT" 

(§15,9  SAY  "6)    SYSTEM  CONTAINS  PROGRAM    13)    RETURN  TO  PREVIOU" 
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S  15,64  SAY  "S  MENU" 

@  17,9  SAY  "7)    PROGRAM  CONTAINS  MODULE    14)    RETURN  TO  MAIN  ME" 

@  17,64  SAY  "NU" 

@  18,22  SAY  "  " 

ACCEPT  '  ENTER  YOUR  CHOICE  (1-14)  FROM  ABOVE :' TO  choice 

DO  CASE 

CASE  choice  =  "1" 

store  'U_PROC_S'  to  choice 

store  'USER  CONTAINS  SYSTEM1  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "2" 

store  'S_PROC_P'  to  choice 

store  'SYSTEM  CONTAINS  PROGRAM'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "3" 

store  'P_PR0C_F'  to  choice 

store  'PROGRAM  PROCESSES  FILE'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "4" 

store  'P_PROC_R'  to  choice 

store  'PROGRAM  PROCESSES  RECORD'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "5" 

store  'P_PROC_E'  to  choice 

store  'PROGRAM  PROCESSES  ELEMENT'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "6" 

store  'S_CONT_P'  to  choice 

store  'SYSTEM  CONTAINS  PROGRAM'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "7" 

store  'P_CONT_M'  to  choice 

store  'PROGRAM  CONTAINS  MODULE'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "8" 

store  'F_C0NT_R'  to  choice 

store  'FILE  CONTAINS  RECORD'  TO  title 

save  to  mem_var 

do  152100 
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CASE  choice  =  "9" 

store  'R_CONT_E'  to  choice 

store  'RECORD  CONTAINS  ELEMENT'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "10" 

store  'U_RESP_S'  to  choice 

store  'USER  RESPONSIBLE  FOR  SYSTEM'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "11" 

store  'U_RESP_F'  to  choice 

store  'USER  RESPONSIBLE  FOR  FILE'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "12" 

store  'P_PROD_D'  to  choice 

store  'PROGRAM  PRODUCES  DOCUMENT'  TO  title 

save  to  mem_var 

do  152100 

CASE  choice  =  "13" 

RETURN 

CASE  choice  =  "14" 

RETURN  TO  MASTER 

OTHERWISE 

CLEAR 

@  1,21  SAY  choice 

@  1,28  SAY  "IS  NOT  A  VALID  CHOICE" 

@  2,20  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  14  ONLY" 

@  3,20  SAY  "PRESS  RETURN  TO  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 

RETURN 
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*  152100. PRG 

*  MODULE  NAME:  1.5.2.1.0.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.5.2.0.0.0 

*  .ROUTINES  THAT  THE  MODULE  CALLS :1 . 5 . 2 .0 .0 .0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  t:  REPRESTENTS  NO  VALUE  AT  ALL. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  count:  KEEPS  TRACK  OF  ACCOUNT  NUMBERS. 

*  option: 

*  INPUT  FILES:  MEM_VAR. 

*  OUTPUT  FILES:  MEM_VAR. 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHICH  TYPE  OF  RELATIONSHIP  WILL  BE 

*  USED  IN  THE  QUERY. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN  BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  ALLOW  THE  USER  TO  CHOOSE  WHETHER  THE  OUTPUT  WILL  BE  ' 

*  DISPLAYED  ON  THE  SCREEN  OR  PRINTED. 

RESTORE  FROM  mem_var 

STORE  0  TO  rec_num,  stop 

CLEAR 

STORE  .t.  TO  TRUE 

do  while  TRUE 

CLEAR 

@  0,1  SAY  "1.5.2.1.0.0" 

RESTORE  FROM  mem_var 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,22  SAY  "    RELATIONSHIP  SCHEMA  OUTPUT" 

@  8,23  SAY  "LISTED  BELOW  ARE  THE  CHOICES  FOR" 

(§9,23  SAY  "HOW  YOU  CAN  HAVE  THE  SCHEMA  FOR" 

@  10,24  SAY  TITLE 

@  11,23  SAY  "DISPLAYED." 

@  13,28  SAY  "1)   SCREEN  OUTPUT" 

@  15,28  SAY  "2)   PRINTER  OUPUT" 

@  17,28  SAY  "3)   RETURN  TO  PREVIOUS  MENU" 

@  18,1  SAY  "  " 

ACCEPT1  ENTER  YOUR  CHOICE  (1-3)  FROM  ABOVE  'TO  option 

ERASE  mem_var.mem 

SAVE  TO  mem_var 

DO  CASE 

CASE  option  =  ' 1 ' 

DO  CASE 

CASE  CHOICE  =  'U_PROC_S' 

DO  152110 

CASE  choice  =  'S  PROC  P' 
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DO  152110 
CASE  CHOICE 
DO  152110 
CASE  choice 
DO  152110 
CASE  CHOICE 
DO  152110 
CASE  choice 
DO  152110 
CASE  CHOICE 
DO  152110 
CASE  choice 
DO  152110 
CASE  CHOICE 
DO  152110 
CASE  choice 
DO  152110 
CASE  CHOICE 
DO  152110 
CASE  choice 
DO  152110 
ENDCASE 
CASE  option 
DO  CASE 
CASE  CHOICE 
DO  152120 
CASE  choice 
DO  152120 
CASE  CHOICE 
DO  152120 
CASE  choice 
DO  152120 
CASE  CHOICE 
DO  152120 
CASE  choice 
DO  152120 
CASE  CHOICE 
DO  152120 
CASE  choice 
DO  152120 
CASE  CHOICE 
DO  152120 
CASE  choice 
DO  152120 
CASE  CHOICE 
DO  152120 


1 P_PROC_F ' 
1 P_PROC_R ' 
1 P_PROC_E ■ 
1 S_CONT_P ' 
1 P_CONT_M ' 
1 F_CONT_R ' 
1 R_CONT_E ' 
1 U_RESP_S ' 
1 U_RESP_F ' 
1 P_PROD_D ■ 

'2' 

1 U_PROC_S ' 
1 S_PROC_P ' 
1 P_PROC_F ' 
'P_PROC_R' 
1 P_PROC_E ' 
1 S_CONT_P ' 
1 P_CONT_M ' 
1 F_CONT_R ' 
1 R_CONT_E ' 
1 U_RESP_S ' 
'U  RESP  F' 
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CASE  choice  =  'P_PROD_D' 

DO  152120 

ENDCASE 

CASE  option  =  '3' 

RETURN 

OTHERWISE 

CLEAR 

(§0,27  SAY  option 

(§0,34  SAY  "IS  NOT  A  VALID  CHOICE" 

(§1,26  SAY  "PLEASE  ENTER  VALUES  BETWEEN  1  AND  3  ONLY" 

@  2,26  SAY  "PRESS  RETURN  AND  TRY  AGAIN!" 

ACCEPT  TO  hold 

ENDCASE 

ENDDO 
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*  152110. PRG 

*  MODULE  NAME:  1.5.2.1.1.0 

*  ROUTINES  THAT  CALL  THE  MODLUE :  1.5.2.1.0.0 

*  ROUTINES  THAT  THE  MODULE  CALLS : 1 . 5 .2 . 1 . 0 .0 

*  LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

*  hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 

*  INPUT  FILES:  MEM_VAR  U_CONTS ,  U_CONT_S ,  U_CONT_P,  P_PROC_F,  P_PROC_R, 

*  P_PROC_R.  P_PROC_E.  S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E , 

*  U_RESP_S,  U_RESP_F,  P_PRED_D. 

*  OUTPUT  FILES:  MEM_VAR 

*  U_CONTS,  U_CONT_S,  U_CONT_P,  P_PROC_F,  P_PROC_R, 

*  P_PROC_R.  P_PROC_E.  S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E , 

*  U_RESP_S,  U_RESP_F,  P_PRED_D. 

*  DESIGNED  BY:   ROBERT  A.  KIRSCH  II 

*  WRITTEN   BY:   ROBERT  A.  KIRSCH  II 

*  BASIC  FUNCTION  OF  MODULE: 

*  THIS  MODULE  WILL  DISPLAY  ON  THE  RELATIONSHIP  SCHEMAS 

RESTORE  FROM  mem_var 

CLEAR 

@  0,1  SAY  "1.5.2.1.1.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

(§3,25  SAY  "RELATIONSHIP  SCHEMA  SCREEN  OUTPUT" 

@  5,22  SAY  "THIS  MODULE  WILL  DISPLAY" 

@  7,23  SAY  TITLE 

@  9,22  SAY  "IF  YOU  DO  NOT  WISH  TO  DISPLAY" 

<§  10,22  SAY  "THIS  SCHEMA,  TYPE  '0'  TO" 

@  11,22  SAY  "RETURN  TO  THE  PREVIOUS  MENU." 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

CLEAR 

(§  0,1  SAY  "1.5.2.1.1.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,28  SAY  "RELATIONSHIP  SCHEMA  FOR" 

(§5,27  SAY  title 

(§7,1  SAY  "  " 

DO  CASE 

CASE  choice  =  'U_PROC_S' 

USE  U_PROC_S 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 
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CASE  choice  =  'S_PROC_P' 

USE  S_PROC_P 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'P_PROC_F' 

USE  P_PROC_F 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'P_PROC_R' 

USE  P_PROC_R 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'P_PROC_E' 

USE  P_PROC_E 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  ' S_CONT_P ■ 

USE  S_CONT_P 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'P_CONT_M' 

USE  P_CONT_M 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'F_CONT_R' 

USE  F_CONT_R 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  ' R_CONT_E ' 

USE  R_CONT_E 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'U_RESP_S' 

USE  U_RESP_S 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'U  RESP  F' 


246 


USE  U_RESP_F 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 

CASE  choice  =  'P_PROD_D' 

USE  P_PROD_D 

DISPLAY  STRUCTURE 

WAIT  TO  hold 

RETURN 
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152120. PRG 

MODULE  NAME:  1.5.2.1.2.0 

ROUTINES  THAT  CALL  THE  MODLUE :  1.5.2.1.0.0 

ROUTINES  THAT  THE  MODULE  CALLS :1 . 5 . 2 . 1 .0 .0 

LOCAL  VARIABLES  USED:  choice:  CONTAINS  THE  NUMBER  OF  ACTION  SELECTED. 

hold:  USED  TO  STOP  ACTION  FOR  USER  DECISION. 
INPUT  FILES:  MEM_VAR  U_CONTS ,  U_CONT_S ,  U_CONT_P,  P_PROC_F,  P_PROC_R, 

P_PROC_R.  P_PROC_E.  S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E , 

P  PROD  D. 


U_RESP_S,  U_RESP_F, 
MEM_VAR 

U_CONTS,  U_CONT_S, 
P_PROC_R.  P_PROC_E. 
U_RESP_S,  U_RESP_F, 
ROBERT  A.  KIRSCH  II 
ROBERT  A.  KIRSCH  II 
BASIC  FUNCTION  OF  MODULE: 
THIS  MODULE  WILL  OUTPUT  THE  USER, 
RELATION  FILES  TO  THE  PRINTER. 


OUTPUT  FILES 


DESIGNED  BY 
WRITTEN   BY 


U_CONT_P,  P_PROC_F,  P_PROC_R, 
S_CONT_P,  P_CONT_M,  F_CONT_R,  R_CONT_E , 
P  PROD  D. 


SYSTEM,  PROGRAM  AND  MODULE 


RESTORE  FROM  mem  var 


rec_num,  stop 


STORE  0  TO 

CLEAR 

@  0,1  SAY  "1.5.1.1.2.0" 

@  1,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  3,27  SAY  "RELATIONSHIP  PRINTER  OUTPUT" 

@  6,23  SAY  "THIS  MODULE  WILL  PRINT" 

@  8,24  SAY  TITLE 

@  10,23  SAY  "PLEASE  INSURE  THAT  YOUR  PRINTER" 

@  11,23  SAY  "IS  TURNED  ON  AND  IN  THE  ONLINE" 

@  12,23  SAY  "MODE" 

@  14,23  SAY  "IF  YOU  DO  NOT  WISH  TO  PRINT" 

@  15,23  SAY  "THIS  RELATION,  TYPE  '0'  TO" 

@  16,23  SAY  "RETURN  TO  THE  PREVIOUS  MENU" 

WAIT  TO  stop 

DO  CASE 

CASE  stop  =  '0' 

RETURN 

OTHERWISE 

ENDCASE 

SET  DEVICE  TO  PRINT 

SET  CONSOLE  OFF 

@  1,1  SAY  "1.5.1.1.2.0" 

@  2,22  SAY  "INFORMATION  RESOURCE  DICTIONARY  SYSTEM" 

@  4,36  SAY  "SCHEMA  FOR" 

@  6,23  SAY  title 

@  9,1  SAY  "  " 
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DO  CASE 

CASE  choice  =  ' U_PROC_S ' 

USE  U_PROC_S 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'S_PROC_P' 

USE  S_PROC_P 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'P_PROC_F' 

USE  P_PROC_F 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'P_PROC_R' 

USE  P_PROC_R 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'P_PROC_E' 

USE  P_PROC_E 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'S_CONT_P' 

USE  S_CONT_P 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'P_CONT_M' 

USE  P_CONT_M 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'F_CONT_R' 

USE  F_CONT_R 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  ' R_CONT_E ' 

USE  R_CONT_E 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  ' U_RESP_S ' 

USE  U_RESP_S 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'U_RESP_F' 

USE  U_RESP_F 

DISPLAY  STRUCTURE  TO  PRINT 

CASE  choice  =  'P_PROD_D' 

USE  P_PROD_D 

DISPLAY  STRUCTURE  TO  PRINT 

ENDCASE 

SET  DEVICE  TO  SCREEN 

SET  CONSOLE  ON 

RETURN 
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